home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0074 / kritzel / kritzel.gfa (.txt) next >
GFA-BASIC Atari  |  1997-04-16  |  97KB  |  5,160 lines
  1. ' *****************************************************************************
  2. '
  3. ' M A L P R O G R A M M   " K R I T Z E L "
  4. '
  5. ' programmiert von Heiko Müller, Mozartstraße 17, 2905 Edewecht
  6. '
  7. datum$="12.02.1989"                   ! letztes Bearbeitungsdatum
  8. version$="3.60"                       ! Version-Nummer
  9. '
  10. ' *****************************************************************************
  11. '
  12. ' Veränderungen gegenüber dem letzten PD-Programm der GFA-Sammlung:
  13. '
  14. ' Datum- und Uhrzeiteingabe
  15. ' Dateiextension wählbar - normale Extension ist nun "PIC", damit die Bilder
  16. ' von SIGNUM! eingelesen werden können. In einer Zwischenversion wurde
  17. ' die Endung "DOO" verwendet. Bestehende Bilder müssen nun leider umbenannt
  18. ' werden.
  19. ' andere Routinen bei Boxen (keine runden Ecken bei starken Strichstärken)
  20. ' Ordner können vom Programm aus angelegt werden
  21. ' SIGNUM-Druckerfonts können für Großschrift benutzt werden
  22. ' Graphik-Modi werden auch beim Einsetzen von Blocks berücksichtigt
  23. ' schnelle Lupenroutine
  24. ' Tortendiagramme herstellbar
  25. ' beliebige Gitterweiten einstellbar
  26. ' Sprühdosenroutine verbessert
  27. ' "Umriss"-Routine
  28. ' Tastatur-Repeat wird für Programmablauf abgestellt
  29. ' fünf Bildschirme, die gewechselt werden können
  30. '
  31. ' In den ersten Versionen dieses Programms wurde die GEM-Menüleiste kombiniert
  32. ' mit Tastaturaufrufen (ON MENU gleichzeitig mit ON MENU KEY).
  33. '
  34. ' Leider führte das zu Programmabstürzen mit Bildverlust, wenn man bei herun-
  35. ' tergeklapptem Menü gleichzeitig eine Taste betätigte. Da dieser Fehler sich
  36. ' nicht beseitigen ließ, wird ab der Version 3.5 ein "selbstgestricktes" Menü
  37. ' eingesetzt (Funktion ähnlich D.R.A.W).
  38. ' ab Version 3.60 ist ein Titelbild in den Programmtext eingebunden (Zeile 1658)
  39. ' Diese Programmliste darf deshalb nicht mit Save,A abgespeichert werden, sonst
  40. ' geht das Titelbild verloren!
  41. '
  42. ' ################# nun geht's los: ####################
  43. '
  44. ON BREAK GOSUB schluss
  45. ON ERROR GOSUB fehler
  46. '
  47. IF XBIOS(4)<>2
  48.   ALERT 3,"Dieses Programm läuft leider|nur mit einem|Schwarzweiß-Monitor!",1,"Sch... ",dummy%
  49.   EDIT
  50. ENDIF
  51. '
  52. CLS
  53. VOID XBIOS(35,0,0)       ! Tastaturklickverzögerung und -wiederholung aus
  54. SETCOLOR 0,1             ! schwarze Schrift auf weißem Grund
  55. SGET bild$               ! zwei leere Bilder einlesen
  56. SGET undo$
  57. ALERT 2,"Was für ein Drucker|ist angeschlossen?",1,"24-Nadel|9-Nadel",drucker%
  58. GOSUB datum_und_uhr
  59. HIDEM
  60. GOSUB speicher_einrichten
  61. GOSUB menue_einrichten
  62. OUT 2,7
  63. SHOWM
  64. DEFMOUSE 3
  65. '
  66. ' *************************************** Hauptprogramm ***********************
  67. neustart:
  68. '
  69. DO
  70.   IF BIOS(11,-1)>15   ! Wenn Capslock eingeschaltet,
  71.     VOID BIOS(11,0)   ! ausschalten, damit Tastaturaufruf funktioniert
  72.   ENDIF
  73.   IF NOT menue_aus!
  74.     SPUT menue$
  75.     GRAPHMODE 1
  76.     DEFTEXT 1,0,0,6
  77.     TEXT 260,90,LEFT$(TIME$,5)      ! aktuelle Uhrzeit anzeigen
  78.     DEFMOUSE 3
  79.     '
  80.     REPEAT                 ! Warteschleife mit Tastatur- oder Mausabfrage
  81.       MOUSE x%,y%,k%
  82.       taste$=INKEY$
  83.       IF BIOS(11,-1)=14    ! Programmabbruch hier mit Control-Shift-Alternate
  84.         GOSUB schluss
  85.       ENDIF
  86.     UNTIL MOUSEK OR taste$>""
  87.   ENDIF
  88.   IF k%=2 OR menue_aus!
  89.     GOSUB bild_zeigen     ! Warteschleife mit Bildanzeige
  90.   ENDIF
  91.   IF LEN(taste$)=1
  92.     taste$=UPPER$(taste$)
  93.   ENDIF
  94.   IF k%=1 OR taste$>""
  95.     IF k%=1
  96.       taste$=""
  97.       auswahl%=INT(y%/50)*10+INT(x%/80)
  98.       WHILE MOUSEK                            ! warten, bis Maustaste losgelassen
  99.       WEND
  100.     ELSE
  101.       auswahl%=0
  102.       IF LEN(taste$)=2
  103.         taste$="2"+RIGHT$(taste$,1)           ! bei Sondertasten 2 davor
  104.       ENDIF
  105.       IF BIOS(11,-1)=1 OR BIOS(11,-1)=2       ! Shift-Taste gehalten: S davor
  106.         taste$="S"+taste$
  107.       ENDIF
  108.     ENDIF
  109.     '
  110.     SHOWM
  111.     GOSUB abfrage
  112.     '
  113.     WHILE MOUSEK
  114.     WEND
  115.   ENDIF
  116. LOOP
  117. '
  118. ' ****************************************************************************
  119. '
  120. PROCEDURE abfrage
  121.   '
  122.   VOID XBIOS(35,20,3)      ! Tastaturklickverzögerung und -wiederholung ein
  123.   '
  124.   ' ##########################
  125.   ' IF taste$>""             ! Zeilen zur Programmentwicklung einschalten
  126.   ' ALERT 1,"Taste "+taste$,1,"aha",dummy%
  127.   ' ENDIF
  128.   ' ##########################
  129.   '
  130.   WHILE MOUSEK                       ! warten, bis Maustaste losgelassen
  131.   WEND
  132.   '
  133.   IF taste$="B"
  134.     GOSUB blockabfrage
  135.   ENDIF
  136.   IF taste$="D"
  137.     GOSUB dateiabfrage
  138.   ENDIF
  139.   IF auswahl%=10 OR taste$="Ü"
  140.     GOSUB ueber
  141.   ENDIF
  142.   IF auswahl%=11 OR ASC(taste$)=27    ! Esc
  143.     SPUT bild$
  144.     GOSUB accessory
  145.   ENDIF
  146.   IF auswahl%=12 OR taste$="DP"
  147.     GOSUB speicherplatz
  148.   ENDIF
  149.   IF auswahl%=13 OR taste$="DU"
  150.     GOSUB datum_und_uhr
  151.   ENDIF
  152.   IF auswahl%=14 OR taste$="DL"
  153.     SPUT bild$
  154.     GOSUB laden
  155.     SPUT bild$
  156.     GOSUB bild_kurz_zeigen(200)
  157.   ENDIF
  158.   IF auswahl%=15 OR taste$="DS"
  159.     SPUT bild$
  160.     GOSUB speichern
  161.   ENDIF
  162.   IF auswahl%=16 OR taste$="D"+CHR$(127)  ! Delete
  163.     GOSUB datei_loeschen
  164.   ENDIF
  165.   IF auswahl%=17 OR taste$="DO"
  166.     GOSUB neuer_ordner
  167.   ENDIF
  168.   IF auswahl%=20 OR taste$="2K" OR taste$="2M"  ! Pfeiltasten
  169.     GOSUB bildwechsel
  170.     SPUT bild$
  171.   ENDIF
  172.   IF auswahl%=21 OR taste$="2a"     ! Undo
  173.     SWAP bild$,undo$
  174.     SPUT bild$
  175.     GOSUB bild_kurz_zeigen(100)
  176.   ENDIF
  177.   IF auswahl%=22 OR taste$=""      ! Delete
  178.     SPUT bild$
  179.     GOSUB loeschen
  180.   ENDIF
  181.   IF auswahl%=23 OR taste$="I"
  182.     SPUT bild$
  183.     GOSUB invert
  184.     GOSUB bild_kurz_zeigen(100)
  185.   ENDIF
  186.   IF auswahl%=24 OR taste$="P"
  187.     SPUT bild$
  188.     GOSUB ausdruck
  189.   ENDIF
  190.   IF auswahl%=25 OR taste$="K"
  191.     SPUT bild$
  192.     GOSUB kopieren
  193.     SPUT bild$
  194.     GOSUB bild_kurz_zeigen(100)
  195.   ENDIF
  196.   IF auswahl%=26 OR taste$="U"
  197.     SPUT bild$
  198.     GOSUB umriss
  199.     SPUT bild$
  200.     GOSUB bild_kurz_zeigen(100)
  201.   ENDIF
  202.   IF auswahl%=27 OR taste$="O"
  203.     k%=0
  204.     SPUT bild$
  205.     IF menue_aus!=FALSE
  206.       menue_aus!=TRUE
  207.       ALERT 0,"Nun geht's nur noch mit|Tastenaufrufen weiter.|Mit der Taste O wird das|Menü wieder eingeschaltet.",1,"aha",dummy%
  208.     ELSE
  209.       menue_aus!=FALSE
  210.     ENDIF
  211.   ENDIF
  212.   IF auswahl%=30 OR taste$="F"
  213.     SPUT bild$
  214.     GOSUB freihand
  215.   ENDIF
  216.   IF auswahl%=31 OR taste$="G"
  217.     SPUT bild$
  218.     GOSUB gerade
  219.   ENDIF
  220.   IF auswahl%=32 OR taste$="L"
  221.     SPUT bild$
  222.     GOSUB linienzug
  223.   ENDIF
  224.   IF auswahl%=33 OR taste$="*"
  225.     SPUT bild$
  226.     GOSUB strahlen
  227.   ENDIF
  228.   IF auswahl%=34 OR taste$="R"
  229.     SPUT bild$
  230.     GOSUB radiergummi
  231.   ENDIF
  232.   IF auswahl%=35 OR taste$="S"
  233.     SPUT bild$
  234.     GOSUB spruehdose
  235.   ENDIF
  236.   IF auswahl%=36 OR taste$="M"
  237.     SPUT bild$
  238.     GOSUB mikroskop
  239.   ENDIF
  240.   IF auswahl%=37 OR taste$="A"
  241.     SPUT bild$
  242.     GOSUB fuellen
  243.   ENDIF
  244.   IF auswahl%=40 OR taste$="2;"
  245.     SPUT bild$
  246.     GOSUB kreis
  247.   ENDIF
  248.   IF auswahl%=41 OR taste$="2<"
  249.     SPUT bild$
  250.     GOSUB ellipse
  251.   ENDIF
  252.   IF auswahl%=42 OR taste$="2="
  253.     SPUT bild$
  254.     GOSUB n_ecken
  255.   ENDIF
  256.   IF auswahl%=43 OR taste$="2>"
  257.     SPUT bild$
  258.     GOSUB kasten
  259.   ENDIF
  260.   IF auswahl%=44 OR taste$="2?"
  261.     SPUT bild$
  262.     GOSUB rundkasten
  263.   ENDIF
  264.   IF auswahl%=45 OR taste$="2@"
  265.     SPUT bild$
  266.     GOSUB vieleck
  267.   ENDIF
  268.   IF auswahl%=46 OR taste$="2A"
  269.     SPUT bild$
  270.     GOSUB torte
  271.     SPUT bild$
  272.     GOSUB bild_kurz_zeigen(100)
  273.   ENDIF
  274.   IF auswahl%=50 OR auswahl%=51 OR taste$="W"
  275.     GOSUB schriftwahl
  276.   ENDIF
  277.   IF auswahl%=52 OR taste$="T"
  278.     SPUT bild$
  279.     GOSUB schreiben
  280.   ENDIF
  281.   IF auswahl%=53 OR taste$="SW"
  282.     SPUT bild$
  283.     GOSUB signum_einladen
  284.   ENDIF
  285.   IF auswahl%=54 OR taste$="ST"
  286.     SPUT bild$
  287.     GOSUB signum_schreiben
  288.   ENDIF
  289.   IF auswahl%=57 OR taste$="2b"                    !Help
  290.     GOSUB hilfe
  291.   ENDIF
  292.   IF auswahl%=60 OR taste$="BA" OR taste$="SA"
  293.     SPUT bild$
  294.     GOSUB ausschneiden
  295.   ENDIF
  296.   IF auswahl%=61 OR taste$="BE" OR taste$="SE"
  297.     SPUT bild$
  298.     GOSUB einsetzen
  299.   ENDIF
  300.   IF auswahl%=62 OR taste$="BM"
  301.     SPUT bild$
  302.     GOSUB spiegeln
  303.   ENDIF
  304.   IF auswahl%=63 OR taste$="BI"
  305.     SPUT bild$
  306.     GOSUB block_invert
  307.   ENDIF
  308.   IF auswahl%=64 OR taste$="BG"
  309.     SPUT bild$
  310.     GOSUB verdoppeln
  311.   ENDIF
  312.   IF auswahl%=65 OR taste$="BK"
  313.     SPUT bild$
  314.     GOSUB halbieren
  315.   ENDIF
  316.   IF auswahl%=66 OR taste$="BL"
  317.     SPUT bild$
  318.     GOSUB block_laden
  319.   ENDIF
  320.   IF auswahl%=67 OR taste$="BS"
  321.     SPUT bild$
  322.     GOSUB block_speichern
  323.   ENDIF
  324.   IF auswahl%=70
  325.     GOSUB datei_einstellen
  326.   ENDIF
  327.   IF auswahl%=71 OR taste$="-"
  328.     GOSUB linienwahl
  329.   ENDIF
  330.   IF auswahl%=72 OR taste$="Z"
  331.     GOSUB farbwahl
  332.   ENDIF
  333.   IF auswahl%=73 OR taste$="Y"
  334.     GOSUB musterwahl
  335.   ENDIF
  336.   IF auswahl%=74 OR taste$="2D"
  337.     SPUT menue$
  338.     GRAPHMODE 1
  339.     DEFTEXT 1,0,0,6
  340.     IF figurfuellen!
  341.       figurfuellen!=FALSE
  342.       TEXT 322,390,"  nein"
  343.       bound%=1
  344.     ELSE
  345.       figurfuellen!=TRUE
  346.       TEXT 322,390,"   ja "
  347.       al$="Figuren werden jetzt gefüllt|gezeichnet.|Sollen sie auch einen Rand|bekommen?"
  348.       ALERT 2,al$,1,"ja|nein",antw%
  349.       IF antw%=1
  350.         bound%=1
  351.       ELSE
  352.         bound%=0
  353.       ENDIF
  354.     ENDIF
  355.     GRAPHMODE 1
  356.     SGET menue$
  357.   ENDIF
  358.   IF auswahl%=75 OR taste$="SG"
  359.     GOSUB moduswahl
  360.   ENDIF
  361.   IF auswahl%=76 OR taste$="#"
  362.     GOSUB gitter
  363.   ENDIF
  364.   IF auswahl%=77 OR taste$="E"
  365.     GOSUB spruehdose_einstellen
  366.   ENDIF
  367.   IF taste$="SB"
  368.     SPUT bild$
  369.     GOSUB testbild
  370.     SPUT bild$
  371.     GOSUB bild_kurz_zeigen(100)
  372.   ENDIF
  373.   '
  374.   ' ******************************************************************
  375.   '
  376.   ' hier ist die Menüabfrage zu Ende - nun werden die Einstellungen repariert:
  377.   '
  378.   GRAPHMODE mode%
  379.   DEFFILL 1,muster1%,muster2%
  380.   DEFLINE stil%,breite%,anfang%,ende%
  381.   DEFTEXT 1,schriftart%,wink%,hoehe%(ho%)
  382.   COLOR farbe%
  383.   BOUNDARY bound%
  384.   VOID XBIOS(35,0,0)       ! Tastaturklickverzögerung und -wiederholung aus
  385.   '
  386. RETURN
  387. PROCEDURE accessory
  388.   i$=""
  389.   MENU menue$()
  390.   ON MENU GOSUB pulldownmenue
  391.   DO
  392.     ON MENU
  393.     EXIT IF i$="weiter"
  394.   LOOP
  395.   MENU KILL
  396. RETURN
  397. PROCEDURE block_speichern
  398.   LOCAL x%,y%,k%
  399.   DEFLINE 1,1,0,0
  400.   HIDEM
  401.   GRAPHMODE 3
  402.   REPEAT
  403.     i$=INKEY$
  404.     IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  405.       al$="bitte zuerst den Block|ausschneiden,|"
  406.       al$=al$+"der gespeichert werden soll.|"
  407.       ALERT 0,al$,1," OK ",dummy%
  408.     ENDIF
  409.     MOUSE x%,y%,k%                 ! großes Kreuz als Mauszeiger
  410.     LINE 0,y%,639,y%
  411.     LINE x%,0,x%,399
  412.     PAUSE 2
  413.     LINE 0,y%,639,y%
  414.     LINE x%,0,x%,399
  415.   UNTIL MOUSEK
  416.   IF MOUSEK=1
  417.     GOSUB gummikasten
  418.     GRAPHMODE 3
  419.     DEFFILL 1,2,8                    ! schwarze Füllung
  420.     PBOX x%,y%,x1%,y1%               ! Block kurz invertieren
  421.     PAUSE 40
  422.     PBOX x%,y%,x1%,y1%
  423.     GET x%,y%,x1%,y1%,block$
  424.     GRAPHMODE 1
  425.     '
  426.     GOSUB fileselect_titel("Block auf der Diskette speichern")
  427.     '
  428.     FILESELECT blockpfad$,blockname$,auswahl$
  429.     blockname$=""
  430.     IF LEN(auswahl$)>0
  431.       laufwerk%=ASC(auswahl$)-64
  432.       '
  433.       IF DFREE(laufwerk%)<LEN(block$)
  434.         ALERT 0,"Nicht genug Platz|auf der Diskette!| |Willst Du etwas löschen?",1," ja |nein",antw%
  435.         IF antw%=1
  436.           GOSUB datei_loeschen
  437.           ALERT 0,"Der Block wurde noch nicht|gespeichert!| |Bitte noch einmal versuchen!",1,"danke",dummy%
  438.         ENDIF
  439.       ELSE
  440.         '
  441.         IF INSTR(auswahl$,".")=0    ! Falls der Dateiname keine Extension hat
  442.           auswahl$=auswahl$+".BLK"     ! .BLK dranhängen
  443.         ENDIF
  444.         '
  445.         FOR i%=LEN(auswahl$) DOWNTO 0                ! der Dateiname wird ermittelt
  446.           blockname$=RIGHT$(auswahl$,LEN(auswahl$)-i%)  ! durch Herunterzählen bis "\"
  447.           punkt%=INSTR(blockname$,".")            ! untersuchen, ob Punkt dabei;
  448.           IF punkt%>0                             ! wenn ja,
  449.             extension$=MID$(blockname$,punkt%+1,3)! wird die Extension herausgelesen
  450.           ENDIF
  451.           blockpfad$=LEFT$(auswahl$,i%)+"*."+extension$! neuer Pfadname wird gebaut
  452.           EXIT IF MID$(auswahl$,i%,1)="\"            ! "\" gefunden, dann raus
  453.         NEXT i%
  454.         '
  455.         BSAVE auswahl$,VARPTR(block$),LEN(block$)    ! Abspeichern
  456.       ENDIF
  457.     ENDIF
  458.   ENDIF
  459.   SPUT bild$
  460. RETURN
  461. PROCEDURE aufhellen   ! Aufhellen eines Bildes durch weiße Streifen
  462.   COLOR 0
  463.   DEFLINE 1,1,2,2
  464.   FOR i%=1 TO 640 STEP 2
  465.     LINE i%,0,i%,399
  466.   NEXT i%
  467.   FOR i%=1 TO 400 STEP 2
  468.     LINE 0,i%,639,i%
  469.   NEXT i%
  470. RETURN
  471. PROCEDURE ausdruck
  472.   ALERT 2,"Bild wirklich ausdrucken? ",1,"Ja| Nein ",antw%
  473.   IF antw%=1
  474.     antw%=0
  475.     DO
  476.       EXIT IF OUT?(0)
  477.       ALERT 1,"Drucker einschalten !",2,"Abbruch| OK ",antw%
  478.       EXIT IF antw%=1
  479.     LOOP
  480.     IF antw%<>1
  481.       OUT 4,18
  482.       HIDEM
  483.       LPRINT CHR$(27);"@";       ! Drucker initialisieren
  484.       LPRINT
  485.       IF drucker%=1
  486.         GOSUB hardcopy_nec
  487.       ELSE
  488.         GOSUB hardcopy_pana
  489.       ENDIF
  490.       OUT 4,8
  491.     ENDIF
  492.   ENDIF
  493. RETURN
  494. PROCEDURE ausschneiden
  495.   LOCAL x%,y%,k%
  496.   SGET undo$
  497.   GRAPHMODE 3
  498.   HIDEM
  499.   DEFLINE 1,1,0,0
  500.   REPEAT
  501.     i$=INKEY$
  502.     IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  503.       al$=" bitte erste Ecke festlegen, |  linke Maustaste festhalten |"
  504.       al$=al$+" und die Blockgröße bestimmen| "
  505.       ALERT 0,al$,1," OK ",dummy%
  506.     ENDIF
  507.     MOUSE x%,y%,k%                 ! großes Kreuz als Mauszeiger
  508.     LINE 0,y%,639,y%
  509.     LINE x%,0,x%,399
  510.     PAUSE 2
  511.     LINE 0,y%,639,y%
  512.     LINE x%,0,x%,399
  513.   UNTIL MOUSEK
  514.   IF MOUSEK=1
  515.     GOSUB gummikasten
  516.     GRAPHMODE 3
  517.     DEFFILL 1,2,8                    ! schwarze Füllung
  518.     PBOX x%,y%,x1%,y1%               ! markierten Block kurz invertieren
  519.     PAUSE 40
  520.     PBOX x%,y%,x1%,y1%
  521.     GET x%,y%,x1%,y1%,block$
  522.     GRAPHMODE 1
  523.     SGET bild$
  524.   ENDIF
  525. RETURN
  526. PROCEDURE bild_kurz_zeigen(t%)
  527.   ti%=TIMER
  528.   DO
  529.     MOUSE x%,y%,k%
  530.     PAUSE 2
  531.     EXIT IF TIMER-ti%>t%
  532.     EXIT IF MOUSEX<>x% OR MOUSEY<>y% OR INKEY$>""
  533.   LOOP
  534.   SPUT bild$
  535. RETURN
  536. PROCEDURE bild_zeigen
  537.   WHILE MOUSEK
  538.   WEND
  539.   SPUT bild$
  540.   HIDEM
  541.   REPEAT
  542.     taste$=INKEY$
  543.   UNTIL taste$>"" OR MOUSEK>1
  544.   WHILE MOUSEK
  545.   WEND
  546.   SHOWM
  547. RETURN
  548. PROCEDURE bildwechsel
  549.   '
  550.   HIDEM
  551.   bild$(bild%)=bild$
  552.   IF (k% AND x%>40) OR taste$="2M"
  553.     INC bild%
  554.     IF bild%=6
  555.       bild%=1
  556.     ENDIF
  557.   ENDIF
  558.   IF (k% AND x%<41) OR taste$="2K"
  559.     DEC bild%
  560.     IF bild%=0
  561.       bild%=5
  562.     ENDIF
  563.   ENDIF
  564.   '
  565.   SPUT menue$
  566.   GRAPHMODE 1
  567.   DEFTEXT 1,0,0,6
  568.   TEXT 35,125,STR$(bild%)
  569.   SGET menue$
  570.   '
  571.   bild$=bild$(bild%)
  572.   SPUT bild$
  573.   DEFTEXT 1,0,0,32
  574.   TEXT 100,100,"Bild "+STR$(bild%)
  575.   GOSUB bild_kurz_zeigen(50)
  576.   SPUT bild$
  577.   SGET undo$
  578.   SHOWM
  579. RETURN
  580. PROCEDURE block_invert
  581.   LOCAL x%,y%,k%
  582.   DEFLINE 1,1,0,0
  583.   HIDEM
  584.   GRAPHMODE 3
  585.   SGET undo$
  586.   REPEAT
  587.     i$=INKEY$
  588.     IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  589.       al$=" bitte erste Ecke festlegen, |  linke Maustaste festhalten |"
  590.       al$=al$+" und die Blockgröße bestimmen| "
  591.       ALERT 0,al$,1," OK ",dummy%
  592.     ENDIF
  593.     MOUSE x%,y%,k%                 ! großes Kreuz als Mauszeiger
  594.     LINE 0,y%,639,y%
  595.     LINE x%,0,x%,399
  596.     PAUSE 2
  597.     LINE 0,y%,639,y%
  598.     LINE x%,0,x%,399
  599.   UNTIL MOUSEK
  600.   IF MOUSEK=1
  601.     GOSUB gummikasten
  602.     GRAPHMODE 3
  603.     DEFFILL 1,2,8
  604.     PBOX x%-1,y%-1,x1%+1,y1%+1
  605.     GET x%,y%,x1%,y1%,block$
  606.     GRAPHMODE mode%
  607.     DEFFILL 1,muster1%,muster2%
  608.   ENDIF
  609.   SPUT bild$
  610.   GOSUB einsetzen
  611. RETURN
  612. PROCEDURE blockabfrage
  613.   GOSUB schreibkasten
  614.   PRINT AT(24,6);"Blockoperationen"
  615.   PRINT AT(24,8);"A = ausschneiden"
  616.   PRINT AT(24,9);"E = einsetzen"
  617.   PRINT AT(24,10);"M = spiegeln (""mirror"")"
  618.   PRINT AT(24,11);"I = invertieren"
  619.   PRINT AT(24,12);"G = vergrößern"
  620.   PRINT AT(24,13);"K = verkleinern"
  621.   PRINT AT(24,14);"S = auf Diskette speichern"
  622.   PRINT AT(24,15);"L = von Diskette laden"
  623.   PRINT AT(24,17);"andere Taste = Abbruch"
  624.   REPEAT
  625.     i$=UPPER$(INKEY$)
  626.   UNTIL i$>""
  627.   taste$=taste$+i$
  628.   SPUT bild$
  629. RETURN
  630. PROCEDURE block_laden
  631.   SGET undo$
  632.   GOSUB fileselect_titel("Block von der Diskette laden")
  633.   FILESELECT blockpfad$,"",auswahl$
  634.   blockname$=""
  635.   SPUT bild$
  636.   IF LEN(auswahl$)>3
  637.     '
  638.     FOR i%=LEN(auswahl$) DOWNTO 0                ! der Dateiname wird ermittelt
  639.       blockname$=RIGHT$(auswahl$,LEN(auswahl$)-i%)  ! durch Herunterzählen bis "\"
  640.       punkt%=INSTR(blockname$,".")            ! untersuchen, ob Punkt dabei;
  641.       IF punkt%>0                             ! wenn ja,
  642.         extension$=MID$(blockname$,punkt%+1,3)! wird die Extension herausgelesen
  643.       ENDIF
  644.       blockpfad$=LEFT$(auswahl$,i%)+"*."+extension$! neuer Pfadname wird gebaut
  645.       EXIT IF MID$(auswahl$,i%,1)="\"            ! "\" gefunden, dann raus
  646.     NEXT i%
  647.     '
  648.     IF EXIST(auswahl$)                           ! Datei existiert?
  649.       block$=""
  650.       OPEN "I",#99,auswahl$                      !  dann öffnen
  651.       block$=SPACE$(LOF(#99))                 !  Dateigröße ermitteln
  652.       BLOAD auswahl$,VARPTR(block$)              !  Datei laden
  653.       CLOSE #99                               !  Datei schließen
  654.       GOSUB einsetzen
  655.     ENDIF
  656.   ENDIF
  657.   SGET bild$
  658. RETURN
  659. PROCEDURE dateiabfrage
  660.   GOSUB schreibkasten
  661.   PRINT AT(22,8);"Diskettenoperationen"
  662.   PRINT AT(22,10);"P = Speicherplatz auf der Diskette"
  663.   PRINT AT(22,11);"U = Datum und Uhrzeit einstellen"
  664.   PRINT AT(22,12);"L = Bild von Diskette laden"
  665.   PRINT AT(22,13);"S = Bild auf Diskette speichern"
  666.   PRINT AT(22,14);"Delete = Datei von der Diskette löschen"
  667.   PRINT AT(22,15);"O = Ordner auf der Diskette anlegen"
  668.   PRINT AT(22,17);"andere Taste = Abbruch"
  669.   REPEAT
  670.     i$=UPPER$(INKEY$)
  671.   UNTIL i$>""
  672.   taste$=taste$+i$
  673.   SPUT bild$
  674. RETURN
  675. PROCEDURE datei_einstellen
  676.   al$="Welche Extension für |Dateinamen soll beim Laden |vorgegeben werden?| "
  677.   ALERT 2,al$,1,"PIC|PI3|*",antw%
  678.   IF antw%=1
  679.     pfad$=laufwerk$+"*.PIC"
  680.     dateiname$="TEST.PIC"
  681.   ENDIF
  682.   IF antw%=2
  683.     pfad$=laufwerk$+"*.PI3"
  684.     dateiname$=""
  685.   ENDIF
  686.   IF antw%=3
  687.     pfad$=laufwerk$+"*.*"
  688.     dateiname$=""
  689.   ENDIF
  690.   DEFTEXT 1,0,0,6
  691.   TEXT 26,390,RIGHT$(pfad$,3)
  692.   SGET menue$
  693. RETURN
  694. PROCEDURE datei_loeschen
  695.   pfad$=laufwerk$+"*.*"
  696.   geloescht!=FALSE
  697.   REPEAT
  698.     GOSUB fileselect_titel("Datei von der Diskette löschen")
  699.     FILESELECT pfad$,"",auswahl$
  700.     EXIT IF NOT EXIST(auswahl$)
  701.     ALERT 3," Die Datei        | "+auswahl$+"| löschen ?",1,"Nein| Ja ",antw%
  702.     IF antw%=2
  703.       KILL auswahl$
  704.       laufwerk%=ASC(auswahl$)-64
  705.       geloescht!=TRUE
  706.     ENDIF
  707.     '
  708.     FOR i%=LEN(auswahl$) DOWNTO 0                ! der Dateiname wird ermittelt
  709.       dateiname$=RIGHT$(auswahl$,LEN(auswahl$)-i%)  ! durch Herunterzählen bis "\"
  710.       pfad$=LEFT$(auswahl$,i%)+"*.*"             ! neuer Pfadname wird gebaut"
  711.       EXIT IF MID$(auswahl$,i%,1)="\"            ! "\" gefunden, dann raus
  712.     NEXT i%
  713.     '
  714.   UNTIL antw%=1 OR auswahl$=""
  715.   IF geloescht!
  716.     GOSUB speicherplatz
  717.   ENDIF
  718.   pfad$=laufwerk$+"*."+extension$
  719.   SPUT menue$
  720. RETURN
  721. PROCEDURE datum_und_uhr
  722.   HIDEM
  723.   SGET merk$
  724.   CLS
  725.   PRINT
  726.   PRINT " eingestelltes Datum: ";DATE$
  727.   PRINT
  728.   PRINT " eingestellte Zeit:   ";TIME$;" Uhr"
  729.   PRINT
  730.   PRINT " alles richtig?      (J/N)"
  731.   DO
  732.     PRINT AT(23,4);TIME$;
  733.     i$=UPPER$(INKEY$)
  734.     EXIT IF i$="N" OR i$="J"
  735.     EXIT IF i$=CHR$(13) OR MOUSEK>1
  736.   LOOP
  737.   IF i$="N"
  738.     REPEAT
  739.       CLS
  740.       datum$=""
  741.       PRINT AT(2,5);"Bitte das Datum eingeben:"
  742.       REPEAT
  743.         PRINT AT(2,7);"Tag  : ";
  744.         FORM INPUT 2,i$
  745.       UNTIL VAL(i$)>0 AND VAL(i$)<32
  746.       IF ASC(RIGHT$(i$,1))<48 OR ASC(RIGHT$(i$,1))>57
  747.         i$=LEFT$(i$,1)
  748.       ENDIF
  749.       IF LEN(i$)=1
  750.         i$="0"+i$
  751.       ENDIF
  752.       PRINT AT(2,7);"Tag  : ";i$
  753.       datum$=i$
  754.       REPEAT
  755.         PRINT AT(2,8);"Monat: ";
  756.         FORM INPUT 2,i$
  757.       UNTIL VAL(i$)>0 AND VAL(i$)<13
  758.       IF ASC(RIGHT$(i$,1))<48 OR ASC(RIGHT$(i$,1))>57
  759.         i$=LEFT$(i$,1)
  760.       ENDIF
  761.       IF LEN(i$)=1
  762.         i$="0"+i$
  763.       ENDIF
  764.       PRINT AT(2,8);"Monat: ";i$
  765.       datum$=datum$+"."+i$
  766.       REPEAT
  767.         PRINT AT(2,9);"Jahr : 19";
  768.         FORM INPUT 2,i$
  769.         IF VAL(i$)<1
  770.           i$="90"                         ! diese Zeile gilt für 1990
  771.         ENDIF
  772.       UNTIL VAL(i$)>88 AND VAL(i$)<100   ! nach 1999 ändern .... (???)
  773.       i$="19"+i$
  774.       PRINT AT(2,9);"Jahr : "+i$
  775.       datum$=datum$+"."+i$
  776.       '
  777.       uhrzeit$=""
  778.       PRINT AT(2,12);"Bitte die Uhrzeit eingeben:"
  779.       REPEAT
  780.         PRINT AT(2,14);"Stunde : ";
  781.         FORM INPUT 2,i$
  782.       UNTIL VAL(i$)>-1 AND VAL(i$)<24
  783.       IF VAL(i$)=0
  784.         i$="15"
  785.       ENDIF
  786.       WHILE LEN(i$)<2
  787.         i$="0"+i$
  788.       WEND
  789.       PRINT AT(2,14);"Stunde : ";i$
  790.       uhrzeit$=i$
  791.       REPEAT
  792.         PRINT AT(2,15);"Minute : ";
  793.         FORM INPUT 2,i$
  794.       UNTIL VAL(i$)>-1 AND VAL(i$)<61
  795.       WHILE LEN(i$)<2
  796.         i$="0"+i$
  797.       WEND
  798.       uhrzeit$=uhrzeit$+":"+i$+":"+"00"
  799.       '
  800.       SETTIME uhrzeit$,datum$
  801.       CLS
  802.       PRINT
  803.       PRINT " eingestelltes Datum: ";DATE$
  804.       PRINT
  805.       PRINT " eingestellte Zeit:   ";TIME$;" Uhr"
  806.       PRINT
  807.       PRINT " alles richtig?      (J/N)"
  808.       DO
  809.         PRINT AT(23,4);TIME$;
  810.         i$=UPPER$(INKEY$)
  811.         EXIT IF i$="N" OR i$="J"
  812.         EXIT IF i$=CHR$(13) OR MOUSEK>1
  813.       LOOP
  814.     UNTIL i$="J" OR i$=CHR$(13)
  815.   ENDIF
  816.   PRINT AT(29,6);"JA"
  817.   PAUSE 30
  818.   CLS
  819.   SPUT merk$
  820.   SHOWM
  821. RETURN
  822. PROCEDURE einsetzen
  823.   LOCAL x%,y%,k%
  824.   SGET undo$
  825.   DIM bild%(32255/4)
  826.   a%=XBIOS(3)
  827.   b%=(VARPTR(bild%(0))+255) AND &HFFFF00
  828.   SGET bild$
  829.   DEFLINE 1,1,0,0
  830.   REPEAT
  831.     SWAP a%,b%
  832.     VOID XBIOS(5,L:a%,L:b%,-1)
  833.     SPUT bild$
  834.     MOUSE x%,y%,k%
  835.     IF gitter!
  836.       x%=INT((x%+weite%/2)/weite%)*weite%
  837.       y%=INT((y%+weite%/2)/weite%)*weite%
  838.     ENDIF
  839.     PUT x%,y%,block$,p_mode%
  840.     IF k%=1
  841.       SGET bild$                          ! Bild mit Block einfangen
  842.       MOUSE x%,y%,k%
  843.       WHILE MOUSEK                        ! warten, bis Maustaste losgelassen
  844.         EXIT IF MOUSEX<>x% OR MOUSEY<>y%  ! oder Maus bewegt wird
  845.         MOUSE x%,y%,k%
  846.       WEND
  847.     ENDIF
  848.     '
  849.     LINE x%,0,x%,399                      ! großes Kreuz als Mauszeiger
  850.     LINE 0,y%,639,y%
  851.   UNTIL k%=2
  852.   a%=MAX(a%,b%)
  853.   VOID XBIOS(5,L:a%,L:a%,-1)
  854.   ERASE bild%()
  855.   SPUT bild$
  856. RETURN
  857. PROCEDURE ellipse
  858.   LOCAL x%,y%,k%
  859.   SGET undo$
  860.   DEFMOUSE 7
  861.   DO
  862.     COLOR 1
  863.     DEFLINE 1,1,0,0
  864.     REPEAT
  865.       MOUSE x%,y%,k%
  866.     UNTIL k%
  867.     IF gitter!
  868.       x%=INT((x%+weite%/2)/weite%)*weite%
  869.       y%=INT((y%+weite%/2)/weite%)*weite%
  870.     ENDIF
  871.     EXIT IF k%>1
  872.     GRAPHMODE 3
  873.     PAUSE 10
  874.     REPEAT
  875.       MOUSE x1%,y1%,k%
  876.       IF gitter!
  877.         x1%=INT((x1%+weite%/2)/weite%)*weite%
  878.         y1%=INT((y1%+weite%/2)/weite%)*weite%
  879.       ENDIF
  880.       ELLIPSE x%,y%,ABS(x1%-x%),ABS(y1%-y%)
  881.       PAUSE 2
  882.       ELLIPSE x%,y%,ABS(x1%-x%),ABS(y1%-y%)
  883.     UNTIL k%<>1
  884.     EXIT IF k%>1
  885.     GRAPHMODE mode%
  886.     DEFLINE stil%,breite%,2,2
  887.     DEFFILL 1,muster1%,muster2%
  888.     COLOR farbe%
  889.     IF figurfuellen!
  890.       PELLIPSE x%,y%,ABS(x1%-x%),ABS(y1%-y%)
  891.     ELSE
  892.       ELLIPSE x%,y%,ABS(x1%-x%),ABS(y1%-y%)
  893.     ENDIF
  894.     PAUSE 5
  895.   LOOP
  896.   SGET bild$
  897. RETURN
  898. PROCEDURE farbwahl
  899.   GRAPHMODE 1
  900.   f$="  weiß  "
  901.   IF farbe%=1
  902.     farbe%=0
  903.   ELSE
  904.     farbe%=1
  905.     f$="schwarz"
  906.   ENDIF
  907.   SGET merk$
  908.   SPUT menue$
  909.   DEFTEXT 1,0,0,6
  910.   TEXT 162,390," "+f$
  911.   SGET menue$
  912.   SPUT merk$
  913. RETURN
  914. PROCEDURE fehler
  915.   IF ERR=8
  916.     al$="Der Speicherplatz reicht nicht|aus für dieses Programm!|"
  917.     al$=al$+"Evtl. Accessories weglassen|oder Ramdisk verkleinern..."
  918.     ALERT 1,al$,1,"Abbruch",dummy%
  919.     END
  920.   ENDIF
  921.   ~FORM_ALERT(1,ERR$(ERR))
  922.   ON BREAK GOSUB schluss
  923.   ON ERROR GOSUB fehler
  924.   RESUME neustart
  925. RETURN
  926. PROCEDURE fileselect_titel(titel$) ! Text soll max. 36 Zeichen lang sein
  927.   DEFLINE 1,1,0,0
  928.   COLOR 1
  929.   dummy%=(36-LEN(titel$))/2
  930.   titel$=SPACE$(dummy%)+titel$     ! Text zentrieren
  931.   GRAPHMODE 1
  932.   DEFFILL 1,2,8
  933.   PBOX 162,10,482,50
  934.   DEFFILL 0,2,8
  935.   PBOX 158,6,478,46
  936.   BOX 158,6,478,46
  937.   PRINT AT(23,2);titel$
  938. RETURN
  939. PROCEDURE freihand
  940.   LOCAL x%,y%,k%
  941.   SGET undo$
  942.   DEFLINE stil%,breite%,2,2
  943.   COLOR 1
  944.   DEFMOUSE 7
  945.   DO
  946.     GRAPHMODE mode%
  947.     IF mode%=4
  948.       GRAPHMODE 1
  949.     ENDIF
  950.     COLOR farbe%
  951.     REPEAT
  952.       MOUSE x%,y%,k%
  953.       x$=INKEY$
  954.       IF (LEN(x$)=2 AND ASC(RIGHT$(x$))=98)
  955.         al$="Zeichnen mit gedrückter linker|Maustaste  -  |"
  956.         al$=al$+"Ausstieg mit rechter Maustaste|Löschen mit X"
  957.         ALERT 0,al$,1," OK ",dummy%
  958.       ENDIF
  959.     UNTIL k% OR x$="x" OR x$="X"
  960.     IF x$="X" OR x$="x"
  961.       SPUT merk$
  962.       k%=0
  963.     ENDIF
  964.     EXIT IF k%>1
  965.     SGET merk$
  966.     IF MOUSEK=1
  967.       PLOT MOUSEX,MOUSEY
  968.     ENDIF
  969.     WHILE MOUSEK=1
  970.       MOUSE x%,y%,k%
  971.       DRAW  TO x%,y%
  972.       PAUSE 3               ! Dadurch werden die Linien geglättet
  973.     WEND
  974.     EXIT IF k%>1
  975.   LOOP
  976.   SGET bild$
  977. RETURN
  978. PROCEDURE fuellen
  979.   LOCAL x%,y%,k%
  980.   SGET undo$
  981.   DEFFILL 1,muster1%,muster2%
  982.   DEFMOUSE 0
  983.   DO
  984.     REPEAT
  985.       MOUSE x%,y%,k%
  986.       x$=INKEY$
  987.       IF x$="y" OR x$="Y"
  988.         GOSUB musterwahl
  989.         k%=0
  990.       ENDIF
  991.       IF (LEN(x$)=2 AND ASC(RIGHT$(x$))=98)
  992.         al$="gefüllt wird mit dem Muster,|das in der Menüzeile oben |"
  993.         al$=al$+"rechts zu sehen war.|Füllen mit linker Maustaste"
  994.         ALERT 0,al$,1," OK ",dummy%
  995.         al$="Das Füllmuster kann mit der|Taste Y gewechselt werden.|"
  996.         ALERT 0,al$,1," OK ",dummy%
  997.       ENDIF
  998.     UNTIL k% OR x$="x" OR x$="X"
  999.     EXIT IF k%>1
  1000.     IF x$="x" OR x$="X"
  1001.       SPUT merk$
  1002.     ENDIF
  1003.     SGET merk$
  1004.     IF k%=1
  1005.       FILL x%,y%
  1006.     ENDIF
  1007.     WHILE MOUSEK
  1008.     WEND
  1009.   LOOP
  1010.   SGET bild$
  1011. RETURN
  1012. PROCEDURE gerade
  1013.   LOCAL x%,y%,k%
  1014.   SGET undo$
  1015.   DEFMOUSE 7
  1016.   DO
  1017.     COLOR 1
  1018.     DEFLINE 1,1,0,0
  1019.     REPEAT
  1020.       MOUSE x%,y%,k%
  1021.       x$=INKEY$
  1022.     UNTIL k% OR x$="X" OR x$="x"
  1023.     IF x$="X" OR x$="x"
  1024.       SPUT merk$
  1025.     ENDIF
  1026.     IF gitter!
  1027.       x%=INT((x%+weite%/2)/weite%)*weite%
  1028.       y%=INT((y%+weite%/2)/weite%)*weite%
  1029.     ENDIF
  1030.     EXIT IF k%>1
  1031.     SGET merk$
  1032.     GRAPHMODE 3
  1033.     REPEAT
  1034.       MOUSE x1%,y1%,k%
  1035.       IF gitter!
  1036.         x1%=INT((x1%+weite%/2)/weite%)*weite%
  1037.         y1%=INT((y1%+weite%/2)/weite%)*weite%
  1038.       ENDIF
  1039.       LINE x%,y%,x1%,y1%
  1040.       PAUSE 2
  1041.       LINE x%,y%,x1%,y1%
  1042.     UNTIL k%=0 OR k%>1
  1043.     EXIT IF k%>1
  1044.     GRAPHMODE mode%
  1045.     DEFLINE stil%,breite%,anfang%,ende%
  1046.     COLOR farbe%
  1047.     IF x$=""
  1048.       LINE x%,y%,x1%,y1%
  1049.       PAUSE 5
  1050.     ENDIF
  1051.   LOOP
  1052.   SGET bild$
  1053. RETURN
  1054. PROCEDURE gitter
  1055.   SGET merk$
  1056.   '
  1057.   IF gitter!
  1058.     i%=1
  1059.     al$=" Gitterweite = "+STR$(weite%)+" | "
  1060.   ELSE
  1061.     i%=3
  1062.     al$=" Gitter ist ausgeschaltet."
  1063.   ENDIF
  1064.   '
  1065.   ALERT 1,al$,i%,"OK|aus|ändern",antw%
  1066.   IF antw%=2
  1067.     gitter!=FALSE
  1068.     weite%=0
  1069.   ENDIF
  1070.   '
  1071.   GRAPHMODE 1
  1072.   IF antw%=3
  1073.     gitter!=TRUE
  1074.     ALERT 2," Neue Gitterweite: ",1,"10|20|anders",antw%
  1075.     weite%=10
  1076.     IF antw%=2
  1077.       weite%=20
  1078.     ENDIF
  1079.     IF antw%=3
  1080.       COLOR 1
  1081.       DEFLINE 1,1,0,0
  1082.       DEFFILL 0,2,8
  1083.       PBOX 200,120,440,210
  1084.       BOX 200,120,440,210
  1085.       BOX 203,123,437,207
  1086.       REPEAT
  1087.         PRINT AT(28,10);"Neue Gitterweite: ";
  1088.         FORM INPUT 3,i$
  1089.         weite%=VAL(i$)
  1090.       UNTIL weite%>1 AND weite%<401
  1091.     ENDIF
  1092.   ENDIF
  1093.   SPUT menue$
  1094.   DEFTEXT 1,0,0,6
  1095.   IF gitter!
  1096.     TEXT 482,390,"   "+STR$(weite%)+" "
  1097.   ELSE
  1098.     TEXT 482,390,"   aus "
  1099.   ENDIF
  1100.   SGET menue$
  1101.   SPUT merk$
  1102. RETURN
  1103. PROCEDURE gummikasten
  1104.   COLOR 1
  1105.   DEFLINE 1,1,0,0
  1106.   GRAPHMODE 3
  1107.   REPEAT
  1108.     MOUSE x%,y%,k%
  1109.   UNTIL k%
  1110.   IF gitter!
  1111.     x%=INT((x%+weite%/2)/weite%)*weite%
  1112.     y%=INT((y%+weite%/2)/weite%)*weite%
  1113.   ENDIF
  1114.   PAUSE 10
  1115.   REPEAT
  1116.     MOUSE x1%,y1%,k%
  1117.     IF gitter!
  1118.       x1%=INT((x1%+weite%/2)/weite%)*weite%
  1119.       y1%=INT((y1%+weite%/2)/weite%)*weite%
  1120.     ENDIF
  1121.     BOX x%,y%,x1%,y1%
  1122.     PAUSE 2
  1123.     BOX x%,y%,x1%,y1%
  1124.   UNTIL k%<>1
  1125.   GRAPHMODE mode%
  1126.   DEFLINE stil%,breite%,anfang%,ende%
  1127.   DEFFILL 1,muster1%,muster2%
  1128.   COLOR farbe%
  1129.   IF x1%>=640
  1130.     x1%=639
  1131.   ENDIF
  1132.   IF y1%>=400
  1133.     y1%=399
  1134.   ENDIF
  1135.   IF x1%<x%
  1136.     SWAP x1%,x%
  1137.   ENDIF
  1138.   IF y1%<y%
  1139.     SWAP y1%,y%
  1140.   ENDIF
  1141. RETURN
  1142. PROCEDURE gummikreis
  1143.   COLOR 1
  1144.   DEFLINE 1,1,0,0
  1145.   REPEAT
  1146.     MOUSE x%,y%,k%
  1147.   UNTIL k%=1
  1148.   IF gitter!
  1149.     x%=INT((x%+weite%/2)/weite%)*weite%
  1150.     y%=INT((y%+weite%/2)/weite%)*weite%
  1151.   ENDIF
  1152.   GRAPHMODE 3
  1153.   PAUSE 10
  1154.   REPEAT
  1155.     MOUSE x1%,y1%,k%
  1156.     IF gitter!
  1157.       x1%=INT((x1%+weite%/2)/weite%)*weite%
  1158.       y1%=INT((y1%+weite%/2)/weite%)*weite%
  1159.     ENDIF
  1160.     radius%=ABS(x1%-x%)
  1161.     CIRCLE x%,y%,radius%
  1162.     PAUSE 2
  1163.     CIRCLE x%,y%,radius%
  1164.   UNTIL k%<>1
  1165.   GRAPHMODE mode%
  1166.   DEFLINE stil%,breite%,anfang%,ende%
  1167.   DEFFILL 1,muster1%,muster2%
  1168.   COLOR farbe%
  1169. RETURN
  1170. PROCEDURE halbieren
  1171.   LOCAL x%,y%,k%
  1172.   DEFLINE 1,1,0,0
  1173.   HIDEM
  1174.   GRAPHMODE 3
  1175.   REPEAT
  1176.     i$=INKEY$
  1177.     IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  1178.       al$=" bitte Block ausschneiden,| der verkleinert werden soll!|"
  1179.       ALERT 0,al$,1,"ach so",dummy%
  1180.       al$="mit gedrückter Shift-Taste|(evtl. zusätzlich Alternate)|"
  1181.       al$=al$+"wird die Verkleinerung heller.|"
  1182.       ALERT 0,al$,1,"aha",dummy%
  1183.       DEFMOUSE 5
  1184.     ENDIF
  1185.     MOUSE x%,y%,k%                 ! großes Kreuz als Mauszeiger
  1186.     LINE 0,y%,639,y%
  1187.     LINE x%,0,x%,399
  1188.     PAUSE 2
  1189.     LINE 0,y%,639,y%
  1190.     LINE x%,0,x%,399
  1191.   UNTIL MOUSEK
  1192.   IF MOUSEK=1
  1193.     GOSUB gummikasten
  1194.     GET x%,y%,x1%,y1%,block$
  1195.     b%=x1%-x%
  1196.     h%=y1%-y%
  1197.     '
  1198.     SPUT bild$
  1199.     put%=7
  1200.     IF BIOS(11,-1)=2 OR BIOS(11,-1)=1 ! Wenn Shift-Taste gehalten,
  1201.       put%=3                          ! wird das Bild heller, weil die
  1202.     ENDIF                             ! Einzelstreifen überdeckt werden
  1203.     '
  1204.     IF BIOS(11,-1)=10                 ! mit Shift- und Alternate Taste
  1205.       GOSUB aufhellen                 ! wird das Bild zuerst aufgehellt
  1206.     ENDIF
  1207.     '
  1208.     FOR i%=0 TO b%/2                          ! zuerst die Breite halbieren:
  1209.       GET 2*i%+x%,y%,2*i%+x%+1,y1%,block$     ! schmalen Streifen ausschneiden,
  1210.       GET 2*i%+x%+1,y%,2*i%+x%+2,y1%,block1$  ! Streifen daneben ausschneiden,
  1211.       PUT x%+i%+1,y%,block$,3                 ! und beide Streifen auf
  1212.       PUT x%+i%+1,y%,block1$,put%             ! einer Stelle zusammensetzen
  1213.     NEXT i%
  1214.     '
  1215.     FOR i%=0 TO h%/2                          ! nun die Höhe halbieren:
  1216.       GET x%,2*i%+y%,x%+b%/2,2*i%+y%+1,block$
  1217.       GET x%,2*i%+y%+1,x%+b%/2,2*i%+y%+2,block1$
  1218.       PUT x%,y%+i%+1,block$,3
  1219.       PUT x%,y%+i%+1,block1$,put%
  1220.     NEXT i%
  1221.     GET x%+1,y%+1,x%+b%/2,y%+h%/2,block$               ! neuen Block einfangen
  1222.     SPUT bild$
  1223.     GOSUB einsetzen
  1224.   ENDIF
  1225. RETURN
  1226. PROCEDURE hardcopy_nec      ! aus dem "GFA-BASIC-Buch von F. Ostrowski
  1227.   i$=SPACE$(400)
  1228.   g$="    "+CHR$(27)+"*"+CHR$(0)+CHR$(400)+CHR$(400/256)  !für NEC P2200
  1229.   OPEN "",#99,"LST:"
  1230.   FOR i%=XBIOS(3) TO i%+79
  1231.     abbruch%=0
  1232.     x%=VARPTR(i$)
  1233.     FOR j%=i%+399*80 TO i% STEP -80
  1234.       POKE x%,PEEK(j%)
  1235.       INC x%
  1236.     NEXT j%
  1237.     FOR j%=0 TO 2
  1238.       PRINT #99,g$;i$;CHR$(13);CHR$(27);"J";CHR$(1);
  1239.       IF INKEY$<>""
  1240.         OUT 4,8
  1241.         ALERT 2,"Ausdruck abbrechen?",1,"  ja  | nein ",abbruch%
  1242.       ENDIF
  1243.       EXIT IF abbruch%=1
  1244.     NEXT j%
  1245.     PRINT #99,CHR$(27);"J";CHR$(21);
  1246.     EXIT IF abbruch%=1
  1247.   NEXT i%
  1248.   CLOSE #99
  1249. RETURN
  1250. PROCEDURE hardcopy_pana     ! aus dem "GFA-BASIC-Buch von F. Ostrowski
  1251.   i$=SPACE$(400)
  1252.   g$="    "+CHR$(27)+"*"+CHR$(5)+CHR$(400)+CHR$(400/256)!für Panasonic KXP1092
  1253.   OPEN "",#99,"LST:"
  1254.   FOR i%=XBIOS(3) TO i%+79
  1255.     abbruch%=0
  1256.     x%=VARPTR(i$)
  1257.     FOR j%=i%+399*80 TO i% STEP -80
  1258.       POKE x%,PEEK(j%)
  1259.       INC x%
  1260.     NEXT j%
  1261.     FOR j%=0 TO 1
  1262.       PRINT #99,g$;i$;CHR$(13);CHR$(27);"J";CHR$(1);
  1263.       IF INKEY$<>""
  1264.         OUT 4,8
  1265.         ALERT 2,"Ausdruck abbrechen?",1,"  ja  | nein ",abbruch%
  1266.       ENDIF
  1267.       EXIT IF abbruch%=1
  1268.     NEXT j%
  1269.     PRINT #99,CHR$(27);"J";CHR$(22);
  1270.     EXIT IF abbruch%=1
  1271.   NEXT i%
  1272.   CLOSE #99
  1273. RETURN
  1274. PROCEDURE hilfe
  1275.   GRAPHMODE 1
  1276.   CLS
  1277.   PRINT
  1278.   PRINT " Die Grundfunktionen dieses Programms kann jeder durch Ausprobieren kennen-"
  1279.   PRINT " lernen. Fast alle Funktionen lassen sich außer über das Menü auch durch"
  1280.   PRINT " eine Taste aufrufen (siehe dazu im Menü). Der Aufwärtspfeil steht im Menü"
  1281.   PRINT " für eine gehaltene Shift-Taste. (Mit Shift + B gibt's übrigens ein Test-"
  1282.   PRINT " bild, und mit der Taste F10 wird bestimmt, ob Figuren wie z.B. Kreise ge-"
  1283.   PRINT " füllt werden sollen.)"
  1284.   PRINT
  1285.   PRINT " Mit der rechten Maustaste kann man zum aktuellen Bild hin- und herschalten."
  1286.   PRINT " Jede aufgerufene Funktion wird wieder verlassen durch Betätigung der rechten"
  1287.   PRINT " Maustaste."
  1288.   PRINT
  1289.   PRINT " Mit der Help-Taste kann man sich an einigen Stellen Hilfen geben lassen,"
  1290.   PRINT " wenn man nicht weiß, wie es weiter geht."
  1291.   PRINT
  1292.   PRINT " Vom Menü aus können die zuletzt eingefügten Änderungen im aktuellen Bild"
  1293.   PRINT " durch die Taste [Undo] wieder rückgängig gemacht werden."
  1294.   PRINT
  1295.   PRINT " Viele Aktionen können sofort durch Betätigung der Taste [X] rückgängig"
  1296.   PRINT " gemacht werden."
  1297.   PRINT
  1298.   PRINT " Falls mal keine Linien entstehen: Vielleicht ist die Zeichenfarbe auf weiß"
  1299.   PRINT " oder ein falscher Graphikmodus eingestellt ... Auch beim Schreiben von"
  1300.   PRINT " Texten kann der Wechsel des Graphikmodus manchmal nützlich sein."
  1301.   REPEAT
  1302.   UNTIL MOUSEK>1 OR INKEY$<>""
  1303.   SPUT menue$
  1304. RETURN
  1305. PROCEDURE horizontal
  1306.   p%(0)=0
  1307.   p%(2)=b%
  1308.   p%(4)=x%
  1309.   p%(6)=x%+b%
  1310.   p%(8)=3
  1311.   p%(5)=y%+h%
  1312.   p%(7)=y%+h%
  1313.   FOR i%=0 TO h%
  1314.     p%(1)=i%
  1315.     p%(3)=i%
  1316.     BITBLT smfdb%(),dmfdb%(),p%()
  1317.     DEC p%(5)
  1318.     DEC p%(7)
  1319.   NEXT i%
  1320. RETURN
  1321. PROCEDURE invert
  1322.   SGET undo$
  1323.   GRAPHMODE 3
  1324.   DEFFILL 1,1,1
  1325.   PBOX -1,-1,640,400
  1326.   GRAPHMODE 1
  1327.   DEFFILL 1,muster1%,muster2%
  1328.   SGET bild$
  1329. RETURN
  1330. PROCEDURE kasten
  1331.   LOCAL x%,y%,k%
  1332.   SGET undo$
  1333.   DEFMOUSE 7
  1334.   DO
  1335.     COLOR 1
  1336.     DEFLINE 1,1,0,0
  1337.     REPEAT
  1338.       MOUSE x%,y%,k%
  1339.     UNTIL k%
  1340.     EXIT IF k%>1
  1341.     GOSUB gummikasten
  1342.     EXIT IF k%>1
  1343.     GRAPHMODE mode%
  1344.     DEFLINE stil%,1,2,2
  1345.     DEFFILL 1,muster1%,muster2%
  1346.     COLOR farbe%
  1347.     IF figurfuellen!
  1348.       PBOX x%,y%,x1%,y1%
  1349.     ELSE
  1350.       FOR i%=0 TO breite%-1                     ! Schleife für eckige Kästen
  1351.         EXIT IF (i%>x1%-x%) OR (i%>y1%-y%)      ! bei dicken Linien
  1352.         BOX x%+i%,y%+i%,x1%-i%,y1%-i%
  1353.       NEXT i%
  1354.     ENDIF
  1355.     PAUSE 5
  1356.   LOOP
  1357.   SGET bild$
  1358. RETURN
  1359. PROCEDURE kopieren
  1360.   SGET bild$(bild%)
  1361.   GET 0,0,639,399,merk$
  1362.   GOSUB schreibkasten
  1363.   PRINT AT(25,10);" Auf welches Bild soll Bild ";bild%'
  1364.   PRINT AT(25,11);"        kopiert werden?      "
  1365.   PRINT AT(25,12);"     (bitte  Zifferntaste)   "
  1366.   PRINT AT(25,14);"         Abbruch mit 0"
  1367.   REPEAT
  1368.     i$=INKEY$
  1369.     EXIT IF i$="0"
  1370.   UNTIL VAL(i$)>0 AND VAL(i$)<6
  1371.   IF i$<>"0"
  1372.     bild%=VAL(i$)          ! neue Bildnummer
  1373.     '
  1374.     SPUT menue$
  1375.     GRAPHMODE 1            ! Nummer im Menü eintragen
  1376.     DEFTEXT 1,0,0,6
  1377.     TEXT 35,125,STR$(bild%)
  1378.     SGET menue$
  1379.     '
  1380.     SPUT bild$(bild%)
  1381.     SGET undo$
  1382.     PAUSE 30
  1383.     PUT 0,0,merk$,p_mode%
  1384.     SGET bild$(bild%)
  1385.     SGET bild$
  1386.   ENDIF
  1387. RETURN
  1388. PROCEDURE kreis
  1389.   LOCAL x%,y%,k%
  1390.   SGET undo$
  1391.   DEFMOUSE 7
  1392.   DO
  1393.     COLOR 1
  1394.     DEFLINE 1,1,0,0
  1395.     REPEAT
  1396.       REPEAT
  1397.         MOUSE x%,y%,k%
  1398.         x$=INKEY$
  1399.       UNTIL k% OR x$>""
  1400.       IF x$="X" OR x$="x"
  1401.         SPUT merk$
  1402.       ENDIF
  1403.     UNTIL x$=""
  1404.     SGET merk$
  1405.     EXIT IF k%>1
  1406.     GOSUB gummikreis
  1407.     GRAPHMODE mode%
  1408.     DEFLINE stil%,breite%,2,2
  1409.     DEFFILL 1,muster1%,muster2%
  1410.     COLOR farbe%
  1411.     IF figurfuellen!
  1412.       PCIRCLE x%,y%,ABS(x1%-x%)
  1413.     ELSE
  1414.       CIRCLE x%,y%,ABS(x1%-x%)
  1415.     ENDIF
  1416.     PAUSE 5
  1417.   LOOP
  1418.   SGET bild$
  1419. RETURN
  1420. PROCEDURE laden
  1421.   SGET undo$
  1422.   GOSUB fileselect_titel("Bild von der Diskette laden")
  1423.   FILESELECT pfad$,dateiname$,auswahl$
  1424.   dateiname$=""
  1425.   IF LEN(auswahl$)>0
  1426.     IF EXIST(auswahl$)                       ! Wenn Datei existiert,
  1427.       OPEN "I",#1,auswahl$                   ! dann öffnen
  1428.       '
  1429.       IF LOF(#1)=32000 OR LOF(#1)=32034      ! PIC- oder PI3-Format
  1430.         IF LOF(#1)=32034
  1431.           SEEK #1,34
  1432.         ENDIF
  1433.         bild$=INPUT$(32000,#1)
  1434.         '
  1435.         FOR i%=LEN(auswahl$) DOWNTO 0               ! der Dateiname wird ermittelt
  1436.           dateiname$=RIGHT$(auswahl$,LEN(auswahl$)-i%)  ! durch Herunterzählen bis "\"
  1437.           punkt%=INSTR(dateiname$,".")            ! untersuchen, ob Punkt dabei;
  1438.           IF punkt%>0                             ! wenn ja,
  1439.             extension$=MID$(dateiname$,punkt%+1,3)! wird die Extension herausgelesen
  1440.           ENDIF
  1441.           pfad$=LEFT$(auswahl$,i%)+"*."+extension$   ! neuer Pfadname wird gebaut
  1442.           EXIT IF MID$(auswahl$,i%,1)="\"            ! "\" gefunden, dann raus
  1443.         NEXT i%
  1444.         '
  1445.       ELSE
  1446.         '
  1447.         al$="Das sieht nicht nach Bild aus!| |Trotzdem versuchen?"
  1448.         ALERT 2,al$,1,"nein|ja",antw%
  1449.         IF antw%=2
  1450.           BLOAD auswahl$,XBIOS(2)
  1451.           SGET bild$
  1452.         ENDIF
  1453.         '
  1454.       ENDIF
  1455.       '
  1456.       CLOSE
  1457.     ENDIF
  1458.     '
  1459.   ENDIF
  1460.   SPUT bild$
  1461. RETURN
  1462. PROCEDURE linienwahl       ! Nach dem Programm "DENISE" aus der "68000er"
  1463.   LOCAL x%,y%,k%
  1464.   COLOR 1
  1465.   GRAPHMODE 1
  1466.   SGET merk$
  1467.   GOSUB schreibkasten
  1468.   BOUNDARY 1
  1469.   DEFFILL 1,0,0
  1470.   FOR i%=104 TO 168 STEP 32  ! 3 Auswahl-Kisten
  1471.     PBOX 170,i%,240,i%+31
  1472.   NEXT i%
  1473.   PBOX 170,235,240,260      ! Fertig-Kiste mit dickem Rahmen
  1474.   PBOX 171,236,239,259
  1475.   PBOX 172,237,238,258
  1476.   '
  1477.   PBOX 400,103,470,135      ! zwei Kisten rechts
  1478.   PBOX 400,213,470,245
  1479.   '
  1480.   PRINT AT(23,8);"Breite +"
  1481.   PRINT AT(23,10);"Breite -"
  1482.   PRINT AT(25,12);"Stil"
  1483.   PRINT AT(24,16);"Fertig"
  1484.   PRINT AT(52,8);"Anfang"
  1485.   PRINT AT(53,15);"Ende"
  1486.   DO
  1487.     DEFLINE stil%,breite%,anfang%,ende%
  1488.     PBOX 270,103,370,245                   ! Kiste für Probelinie
  1489.     LINE 320,125,320,225                   ! Probelinie
  1490.     PRINT AT(45,15);breite%
  1491.     REPEAT
  1492.       MOUSE x%,y%,k%
  1493.       i$=INKEY$
  1494.       IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  1495.         al$="Hier werden die Linienart|bestimmt, die bei Linien oder|"
  1496.         al$=al$+"bei Figuren (z.B. Geraden) |benutzt wird."
  1497.         ALERT 0,al$,1," OK ",dummy%
  1498.       ENDIF
  1499.       IF i$>""
  1500.         i$=UPPER$(i$)
  1501.         IF i$="A"
  1502.           k%=1
  1503.           x%=420
  1504.           y%=120
  1505.         ENDIF
  1506.         IF i$="E"
  1507.           k%=1
  1508.           x%=420
  1509.           y%=220
  1510.         ENDIF
  1511.         IF i$="S"
  1512.           k%=1
  1513.           x%=200
  1514.           y%=180
  1515.         ENDIF
  1516.       ENDIF
  1517.     UNTIL k%=1 OR i$=CHR$(13) OR VAL(i$)>0
  1518.     PAUSE 5
  1519.     EXIT IF i$=CHR$(13)
  1520.     IF VAL(i$)>0
  1521.       breite%=2*VAL(i$)-1
  1522.     ENDIF
  1523.     '
  1524.     IF x%>170 AND x%<240 AND k%     ! linke Kisten angeklickt
  1525.       IF y%>104 AND y%<136
  1526.         breite%=breite%+2
  1527.         IF breite%>21
  1528.           breite%=21
  1529.         ENDIF
  1530.       ENDIF
  1531.       IF y%>136 AND y%<168
  1532.         breite%=breite%-2
  1533.         IF breite%<1
  1534.           breite%=1
  1535.         ENDIF
  1536.       ENDIF
  1537.       IF y%>168 AND y%<200
  1538.         WHILE MOUSEK
  1539.         WEND
  1540.         breite%=1
  1541.         INC stil%
  1542.         IF stil%>6
  1543.           stil%=1
  1544.         ENDIF
  1545.       ENDIF
  1546.     ENDIF
  1547.     '
  1548.     IF x%>400 AND x%<470 AND k%      ! rechte Kisten angeklickt
  1549.       IF y%>103 AND y%<135
  1550.         INC anfang%
  1551.         IF anfang%>2
  1552.           anfang%=0
  1553.         ENDIF
  1554.       ENDIF
  1555.       IF y%>213 AND y%<245
  1556.         INC ende%
  1557.         IF ende%>2
  1558.           ende%=0
  1559.         ENDIF
  1560.       ENDIF
  1561.     ENDIF
  1562.     '
  1563.     EXIT IF (y%>235 AND y%<260) AND (x%>170 AND x%<240) AND k%  ! Ausstieg
  1564.   LOOP
  1565.   GRAPHMODE mode%
  1566.   SPUT menue$
  1567.   GRAPHMODE 1
  1568.   DEFFILL 0,2,8
  1569.   PBOX 101,365,179,399
  1570.   DEFTEXT 1,1,0,6
  1571.   TEXT 116,370,"-"                    ! Probelinien im Menü zeichnen
  1572.   DEFLINE 1,breite%,0,0
  1573.   LINE 100,365,100,399
  1574.   DEFLINE stil%,1,anfang%,ende%
  1575.   LINE 140,365,140,399
  1576.   SGET menue$
  1577.   DEFFILL 1,muster1%,muster2%
  1578.   DEFLINE stil%,breite%,anfang%,ende%
  1579.   COLOR farbe%
  1580.   SPUT merk$
  1581. RETURN
  1582. PROCEDURE linienzug
  1583.   LOCAL x%,y%,k%
  1584.   SGET undo$
  1585.   DEFMOUSE 7
  1586.   REPEAT
  1587.     MOUSE x%,y%,k%
  1588.   UNTIL k%=1
  1589.   WHILE MOUSEK
  1590.   WEND
  1591.   IF gitter!
  1592.     x%=INT((x%+weite%/2)/weite%)*weite%
  1593.     y%=INT((y%+weite%/2)/weite%)*weite%
  1594.   ENDIF
  1595.   REPEAT
  1596.     REPEAT
  1597.       COLOR 1
  1598.       DEFLINE 1,1,0,0
  1599.       GRAPHMODE 3
  1600.       MOUSE x1%,y1%,k%
  1601.       IF gitter!
  1602.         x1%=INT((x1%+weite%/2)/weite%)*weite%
  1603.         y1%=INT((y1%+weite%/2)/weite%)*weite%
  1604.       ENDIF
  1605.       LINE x%,y%,x1%,y1%
  1606.       PAUSE 3
  1607.       LINE x%,y%,x1%,y1%
  1608.     UNTIL k%
  1609.     REPEAT
  1610.     UNTIL MOUSEK=0
  1611.     GRAPHMODE mode%
  1612.     DEFLINE stil%,breite%,anfang%,ende%
  1613.     COLOR farbe%
  1614.     IF k%=1
  1615.       LINE x%,y%,x1%,y1%
  1616.     ENDIF
  1617.     x%=x1%
  1618.     y%=y1%
  1619.   UNTIL k%>1
  1620.   SGET bild$
  1621. RETURN
  1622. PROCEDURE lupe_einrichten
  1623.   lupe$=""
  1624.   RESTORE lupe
  1625.   DO
  1626.     READ a%
  1627.     EXIT IF a%<0
  1628.     lupe$=lupe$+MKI$(a%)
  1629.   LOOP
  1630.   VOID FRE(0)
  1631.   ' MCODE \BAS\LUPE.PR
  1632. lupe:
  1633.   DATA 8303,4,12335,8,12847,10,8815,12
  1634.   DATA 3137,50,25172,3136,80,25166,45564,255
  1635.   DATA 65535,25158,46076,255,65535,25150,9289,13824
  1636.   DATA 15384,31247,32256,56390,25602,32383,4935,80
  1637.   DATA 4935,160,4935,240,4935,320,4935,400
  1638.   DATA 4935,480,4807,21315,22477,65498,26322,17386
  1639.   DATA 640,20937,65480,28672,20085,28927,20085
  1640.   DATA -1
  1641. RETURN
  1642. PROCEDURE loeschen
  1643.   SGET undo$
  1644.   ALERT 2," Soll Bild "+STR$(bild%)+"| gelöscht werden? ",1," Ja | Nein ",antw%
  1645.   IF antw%=1
  1646.     CLS
  1647.     SGET bild$
  1648.   ENDIF
  1649. RETURN
  1650. PROCEDURE menue_einrichten
  1651.   LOCAL x%,y%,k%
  1652.   '
  1653.   ' In der folgenden Zeile befindet sich das Titelbild. Wenn das Programm als
  1654.   ' ASCII-Datei gespeichert wurde, verschwindet es! Dann muß die
  1655.   ' Datei KRITZEL.INL wieder eingeladen werden. Falls diese Datei nicht
  1656.   ' existiert, kann mit der PROCEDURE titelbild ein neues Bild
  1657.   ' (zur weiteren Bearbeitung) produziert werden.
  1658.   '
  1659. ' ## INLINE:
  1660. ' $0000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1661. ' $0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1662. ' $0020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1663. ' $0030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1664. ' $0040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1665. ' $0050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1666. ' $0060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1667. ' $0070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1668. ' $0080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1669. ' $0090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1670. ' $00a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1671. ' $00b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1672. ' $00c0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1673. ' $00d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1674. ' $00e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1675. ' $00f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1676. ' $0100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1677. ' $0110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1678. ' $0120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1679. ' $0130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1680. ' $0140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1681. ' $0150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1682. ' $0160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1683. ' $0170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1684. ' $0180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1685. ' $0190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1686. ' $01a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1687. ' $01b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1688. ' $01c0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1689. ' $01d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1690. ' $01e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1691. ' $01f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1692. ' $0200: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1693. ' $0210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1694. ' $0220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1695. ' $0230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1696. ' $0240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1697. ' $0250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1698. ' $0260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1699. ' $0270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1700. ' $0280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1701. ' $0290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1702. ' $02a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1703. ' $02b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1704. ' $02c0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1705. ' $02d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1706. ' $02e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1707. ' $02f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1708. ' $0300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1709. ' $0310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1710. ' $0320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1711. ' $0330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1712. ' $0340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1713. ' $0350: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1714. ' $0360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1715. ' $0370: 00 1f 9f 80 00 01 f9 f8 00 00 7e 7e 00 00 07 ff 
  1716. ' $0380: 80 00 00 1f ff 80 00 01 ff f8 00 00 1f ff 80 00 
  1717. ' $0390: 01 ff f8 00 00 1f 80 00 00 01 f9 f8 00 00 00 00 
  1718. ' $03a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1719. ' $03b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1720. ' $03c0: 00 10 90 80 00 01 09 08 00 00 42 42 00 00 04 88 
  1721. ' $03d0: 80 00 00 1a aa 80 00 01 aa a8 00 00 1a aa 80 00 
  1722. ' $03e0: 01 ee e8 00 00 1f 80 00 00 01 09 08 00 00 00 00 
  1723. ' $03f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1724. ' $0400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1725. ' $0410: 00 14 94 80 00 01 49 48 00 00 56 56 00 00 05 55 
  1726. ' $0420: e0 00 00 15 55 80 00 01 dd d8 00 00 1f ff 80 00 
  1727. ' $0430: 01 ff f8 00 00 1f 80 00 00 01 49 48 00 00 00 00 
  1728. ' $0440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1729. ' $0450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1730. ' $0460: 00 10 90 80 00 01 09 08 00 00 42 42 00 00 06 22 
  1731. ' $0470: 20 00 00 1a aa 80 00 01 aa a8 00 00 1a aa 80 00 
  1732. ' $0480: 01 bb b8 00 00 1f 80 00 00 01 09 08 00 00 00 00 
  1733. ' $0490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1734. ' $04a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1735. ' $04b0: 00 11 f1 80 00 01 1f 18 00 00 57 d6 00 00 05 55 
  1736. ' $04c0: 60 00 00 15 55 80 00 01 77 78 00 00 1f ff 80 00 
  1737. ' $04d0: 01 ff f8 00 00 1f 80 00 00 01 1f 18 00 00 00 00 
  1738. ' $04e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1739. ' $04f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1740. ' $0500: 00 1c 03 80 00 01 c0 38 00 00 43 0e 00 00 04 bc 
  1741. ' $0510: a0 00 00 1f af 80 00 01 fa f8 00 00 1f eb 80 00 
  1742. ' $0520: 01 ef f8 00 00 1f 80 00 00 01 c0 38 00 00 00 00 
  1743. ' $0530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1744. ' $0540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1745. ' $0550: 00 04 46 00 00 00 44 60 00 00 57 58 00 00 05 65 
  1746. ' $0560: 60 00 00 01 58 00 00 00 1d 80 00 00 00 7e 00 00 
  1747. ' $0570: 01 f8 00 00 00 1f 80 00 00 00 44 60 00 00 00 00 
  1748. ' $0580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1749. ' $0590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1750. ' $05a0: 00 04 02 00 00 00 40 20 00 00 43 08 00 00 06 26 
  1751. ' $05b0: 20 00 00 01 a8 00 00 00 1a 80 00 00 00 6a 00 00 
  1752. ' $05c0: 01 b8 00 00 00 1f 80 00 00 00 40 20 00 00 00 00 
  1753. ' $05d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1754. ' $05e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1755. ' $05f0: 00 7d 13 e0 00 07 d1 3e 00 00 57 58 00 00 05 65 
  1756. ' $0600: 60 00 00 01 58 00 00 00 17 80 00 00 01 fe 00 00 
  1757. ' $0610: 01 ff e0 00 00 1f 80 00 00 07 d1 3e 00 00 00 00 
  1758. ' $0620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1759. ' $0630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1760. ' $0640: 00 40 00 20 00 04 00 02 00 00 40 38 00 00 04 a4 
  1761. ' $0650: a0 00 00 01 a8 00 00 00 1a 80 00 00 01 ae 00 00 
  1762. ' $0660: 01 ee e0 00 00 1f 80 00 00 04 00 02 00 00 00 00 
  1763. ' $0670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1764. ' $0680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1765. ' $0690: 00 44 44 60 00 04 44 46 00 00 55 60 00 00 05 7d 
  1766. ' $06a0: 60 00 00 01 58 00 00 00 1d 80 00 00 01 f8 00 00 
  1767. ' $06b0: 01 ff e0 00 00 1f 80 00 00 04 44 46 00 00 00 00 
  1768. ' $06c0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1769. ' $06d0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1770. ' $06e0: 00 40 00 20 00 04 00 02 00 00 40 20 00 00 06 22 
  1771. ' $06f0: 20 00 00 01 a8 00 00 00 1a 80 00 00 01 a8 00 00 
  1772. ' $0700: 01 bb a0 00 00 1f 80 00 00 04 00 02 00 00 00 00 
  1773. ' $0710: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1774. ' $0720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1775. ' $0730: 00 51 11 20 00 05 11 12 00 00 55 78 00 00 05 55 
  1776. ' $0740: 60 00 00 01 58 00 00 00 17 80 00 00 07 f8 00 00 
  1777. ' $0750: 01 ff e0 00 00 1f 80 00 00 05 11 12 00 00 00 00 
  1778. ' $0760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1779. ' $0770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1780. ' $0780: 00 7c 03 e0 00 07 c0 3e 00 00 43 08 00 00 04 88 
  1781. ' $0790: e0 00 00 01 a8 00 00 00 1a 80 00 00 06 b8 00 00 
  1782. ' $07a0: 01 ef e0 00 00 1f 80 00 00 07 c0 3e 00 00 00 00 
  1783. ' $07b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1784. ' $07c0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1785. ' $07d0: 00 04 46 00 00 00 44 60 00 00 57 58 00 00 05 55 
  1786. ' $07e0: 80 00 00 01 58 00 00 00 1d 80 00 00 07 e0 00 00 
  1787. ' $07f0: 01 f8 00 00 00 1f 80 00 00 00 44 60 00 00 00 00 
  1788. ' $0800: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1789. ' $0810: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1790. ' $0820: 00 04 02 00 00 00 40 20 00 00 43 08 00 00 06 32 
  1791. ' $0830: 80 00 00 01 a8 00 00 00 1a 80 00 00 06 a0 00 00 
  1792. ' $0840: 01 b8 00 00 00 1f 80 00 00 00 40 20 00 00 00 00 
  1793. ' $0850: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1794. ' $0860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1795. ' $0870: 00 1d 13 80 00 01 d1 38 00 00 57 5e 00 00 05 75 
  1796. ' $0880: e0 00 00 01 58 00 00 00 17 80 00 00 1f e0 00 00 
  1797. ' $0890: 01 f8 00 00 00 1f 80 00 00 01 d1 38 00 00 00 00 
  1798. ' $08a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1799. ' $08b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1800. ' $08c0: 00 10 f0 80 00 01 0f 08 00 00 43 c2 00 00 04 bc 
  1801. ' $08d0: a0 00 00 01 a8 00 00 00 1a 80 00 00 1a e0 00 00 
  1802. ' $08e0: 01 e8 00 00 00 1f 80 00 00 01 0f 08 00 00 00 00 
  1803. ' $08f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1804. ' $0900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1805. ' $0910: 00 14 94 80 00 01 49 48 00 00 56 56 00 00 05 65 
  1806. ' $0920: 60 00 00 01 58 00 00 00 1d 80 00 00 1f 80 00 00 
  1807. ' $0930: 01 f8 00 00 00 1f 80 00 00 01 49 48 00 00 00 00 
  1808. ' $0940: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1809. ' $0950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1810. ' $0960: 00 10 90 80 00 01 09 08 00 00 42 42 00 00 06 26 
  1811. ' $0970: 20 00 00 01 a8 00 00 00 1a 80 00 00 1a 80 00 00 
  1812. ' $0980: 01 b8 00 00 00 1f 80 00 00 01 09 08 00 00 00 00 
  1813. ' $0990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1814. ' $09a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1815. ' $09b0: 00 11 91 80 00 01 19 18 00 00 56 57 80 00 05 65 
  1816. ' $09c0: 78 00 00 1f 5f 80 00 00 17 80 00 00 1f ff 80 00 
  1817. ' $09d0: 01 ff f8 00 00 1f ff 80 00 01 19 18 00 00 00 00 
  1818. ' $09e0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1819. ' $09f0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1820. ' $0a00: 00 1f 9f 80 00 01 f9 f8 00 00 42 70 80 00 04 a7 
  1821. ' $0a10: 88 00 00 1a aa 80 00 00 1a 80 00 00 1a aa 80 00 
  1822. ' $0a20: 01 ee e8 00 00 1f ff 80 00 01 f9 f8 00 00 00 00 
  1823. ' $0a30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1824. ' $0a40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1825. ' $0a50: 00 00 00 00 00 00 00 00 00 00 56 15 80 00 05 61 
  1826. ' $0a60: 58 00 00 15 55 80 00 00 1d 80 00 00 1f ff 80 00 
  1827. ' $0a70: 01 ff f8 00 00 1f ff 80 00 00 00 00 00 00 00 00 
  1828. ' $0a80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1829. ' $0a90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1830. ' $0aa0: 00 00 00 00 00 00 00 00 00 00 42 10 80 00 06 21 
  1831. ' $0ab0: 28 00 00 1a aa 80 00 00 1a 80 00 00 1a aa 80 00 
  1832. ' $0ac0: 01 bb b8 00 00 1f ff 80 00 00 00 00 00 00 00 00 
  1833. ' $0ad0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1834. ' $0ae0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1835. ' $0af0: 00 00 00 00 00 00 00 00 00 00 56 15 80 00 05 61 
  1836. ' $0b00: 58 00 00 15 55 80 00 00 17 80 00 00 1f ff 80 00 
  1837. ' $0b10: 01 ff f8 00 00 1f ff 80 00 00 00 00 00 00 00 00 
  1838. ' $0b20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1839. ' $0b30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1840. ' $0b40: 00 00 00 00 00 00 00 00 00 00 7e 1f 80 00 07 e1 
  1841. ' $0b50: f8 00 00 1f ff 80 00 00 1f 80 00 00 1f ff 80 00 
  1842. ' $0b60: 01 ff f8 00 00 1f ff 80 00 00 00 00 00 00 00 00 
  1843. ' $0b70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1844. ' $0b80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1845. ' $0b90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1846. ' $0ba0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1847. ' $0bb0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1848. ' $0bc0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1849. ' $0bd0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1850. ' $0be0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1851. ' $0bf0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1852. ' $0c00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1853. ' $0c10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1854. ' $0c20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1855. ' $0c30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1856. ' $0c40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1857. ' $0c50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1858. ' $0c60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1859. ' $0c70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1860. ' $0c80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1861. ' $0c90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1862. ' $0ca0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1863. ' $0cb0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1864. ' $0cc0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1865. ' $0cd0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1866. ' $0ce0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1867. ' $0cf0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1868. ' $0d00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1869. ' $0d10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1870. ' $0d20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1871. ' $0d30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1872. ' $0d40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1873. ' $0d50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1874. ' $0d60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1875. ' $0d70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1876. ' $0d80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1877. ' $0d90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1878. ' $0da0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1879. ' $0db0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1880. ' $0dc0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1881. ' $0dd0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1882. ' $0de0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1883. ' $0df0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1884. ' $0e00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1885. ' $0e10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1886. ' $0e20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1887. ' $0e30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1888. ' $0e40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1889. ' $0e50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1890. ' $0e60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1891. ' $0e70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1892. ' $0e80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1893. ' $0e90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1894. ' $0ea0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1895. ' $0eb0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1896. ' $0ec0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1897. ' $0ed0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1898. ' $0ee0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1899. ' $0ef0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1900. ' $0f00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1901. ' $0f10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1902. ' $0f20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1903. ' $0f30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1904. ' $0f40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1905. ' $0f50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1906. ' $0f60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1907. ' $0f70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1908. ' $0f80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1909. ' $0f90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
  1910. ' $0fa0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  1911. ' $0fb0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  1912. ' $0fc0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  1913. ' $0fd0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  1914. ' $0fe0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  1915. ' $0ff0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1916. ' $1000: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  1917. ' $1010: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  1918. ' $1020: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  1919. ' $1030: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  1920. ' $1040: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1921. ' $1050: 00 00 00 00 80 00 00 3f ff ff fc 00 00 00 80 00 
  1922. ' $1060: 00 00 00 00 03 80 00 00 80 00 00 00 00 00 00 00 
  1923. ' $1070: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  1924. ' $1080: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  1925. ' $1090: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1926. ' $10a0: 00 00 00 00 80 00 00 40 00 00 02 00 00 00 80 00 
  1927. ' $10b0: ff ff f0 00 1c 60 00 00 87 ff ff ff 80 00 00 00 
  1928. ' $10c0: 00 00 80 00 00 00 00 03 ff ff ff c0 80 00 00 00 
  1929. ' $10d0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  1930. ' $10e0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1931. ' $10f0: 00 00 00 00 80 00 00 80 0a aa aa 00 00 00 80 00 
  1932. ' $1100: 80 00 10 00 61 18 00 00 88 00 00 00 40 00 00 00 
  1933. ' $1110: 00 00 80 00 00 00 00 04 00 00 00 20 80 00 00 00 
  1934. ' $1120: 00 00 00 00 00 00 80 00 00 1f f8 00 00 00 00 00 
  1935. ' $1130: 80 00 00 02 80 00 00 00 00 00 80 00 00 00 00 00 
  1936. ' $1140: 01 00 00 00 80 00 00 80 00 00 02 00 00 00 80 00 
  1937. ' $1150: 80 00 10 00 81 06 00 00 90 01 55 55 40 00 00 00 
  1938. ' $1160: 00 00 80 00 00 00 00 08 00 aa aa a0 80 3f ff ff 
  1939. ' $1170: 00 00 00 00 00 00 80 00 00 30 0c 00 00 00 00 00 
  1940. ' $1180: 80 00 00 00 10 00 00 00 00 00 83 80 00 00 00 00 
  1941. ' $1190: 00 00 00 30 80 00 00 80 08 00 02 00 00 00 80 00 
  1942. ' $11a0: 80 00 10 01 01 01 00 00 90 00 00 00 40 00 00 00 
  1943. ' $11b0: 00 00 80 00 00 00 00 08 00 00 00 20 80 20 00 01 
  1944. ' $11c0: 00 00 00 00 00 00 80 3f ff e0 04 00 00 00 00 00 
  1945. ' $11d0: 80 00 00 04 5e 38 e0 00 00 00 84 4e 38 e1 c7 38 
  1946. ' $11e0: e3 0e 1c 60 80 00 00 80 00 00 02 00 00 00 80 00 
  1947. ' $11f0: 80 00 10 02 01 00 80 00 90 01 00 00 40 00 00 00 
  1948. ' $1200: 00 00 80 00 00 00 00 08 00 80 00 20 80 20 00 01 
  1949. ' $1210: c0 00 00 07 f0 00 80 40 00 00 04 00 00 00 00 00 
  1950. ' $1220: 80 00 00 04 51 7c 90 00 00 00 87 d0 41 f3 0c 44 
  1951. ' $1230: 91 1f 30 c0 80 00 00 00 08 00 02 00 00 00 80 00 
  1952. ' $1240: 80 00 10 04 00 06 40 00 90 00 00 00 40 00 00 00 
  1953. ' $1250: 00 00 80 00 00 00 00 08 00 00 00 20 80 20 00 01 
  1954. ' $1260: 40 00 00 fe bf 80 80 7f ff ff e4 00 00 00 00 00 
  1955. ' $1270: 80 00 00 04 51 40 80 00 00 00 84 50 41 00 c3 44 
  1956. ' $1280: 81 10 0d 80 80 00 00 ff c0 00 02 00 00 00 80 00 
  1957. ' $1290: 80 00 10 08 00 0e 20 00 80 01 00 3e 40 00 00 00 
  1958. ' $12a0: 00 00 80 00 00 00 00 00 00 80 1f 20 80 20 00 01 
  1959. ' $12b0: 70 00 01 c6 31 c0 80 40 00 00 14 00 00 00 00 00 
  1960. ' $12c0: 80 00 00 03 de 38 80 00 00 00 84 4e 38 e3 8e 38 
  1961. ' $12d0: 83 8e 39 00 80 00 00 80 28 00 02 00 00 00 80 00 
  1962. ' $12e0: 80 00 10 08 00 1c 10 00 9f f8 00 22 40 00 ff ff 
  1963. ' $12f0: ff e0 8f ff ff fe 00 0f fc 00 11 20 80 20 00 01 
  1964. ' $1300: 50 00 02 00 00 20 80 80 00 00 0c 00 00 00 00 00 
  1965. ' $1310: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1966. ' $1320: 00 00 00 00 80 00 00 bf a0 00 02 00 00 00 80 00 
  1967. ' $1330: 80 00 10 10 00 38 10 00 90 05 00 22 40 00 80 60 
  1968. ' $1340: 00 20 88 06 00 02 00 08 02 80 11 20 80 20 00 01 
  1969. ' $1350: 50 00 07 c0 01 e0 80 80 00 00 0c 00 00 00 00 00 
  1970. ' $1360: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1971. ' $1370: 00 00 00 00 80 00 00 a0 a8 00 02 00 00 00 80 00 
  1972. ' $1380: 80 00 30 10 00 70 08 00 97 f4 00 22 40 00 9f a0 
  1973. ' $1390: 78 20 89 fa 07 82 00 0b fa 00 11 20 80 20 00 01 
  1974. ' $13a0: 50 00 03 7f ff 40 80 80 00 00 0c 00 00 00 00 00 
  1975. ' $13b0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1976. ' $13c0: 00 00 00 00 80 00 00 a0 a0 00 02 00 00 00 80 00 
  1977. ' $13d0: 80 00 30 20 00 e0 08 00 94 15 00 1c 40 00 8f 80 
  1978. ' $13e0: fc 20 88 f8 0f c2 00 0a 0a 80 0e 20 80 20 00 01 
  1979. ' $13f0: 50 00 01 00 00 40 80 80 00 00 0c 00 00 00 00 00 
  1980. ' $1400: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1981. ' $1410: 00 00 00 00 80 00 00 bf a9 e1 e2 00 00 00 80 00 
  1982. ' $1420: 80 00 30 20 01 c0 08 00 94 14 00 00 40 00 80 d1 
  1983. ' $1430: fc 20 88 0d 1f c2 00 0a 0a 00 00 20 80 20 00 01 
  1984. ' $1440: 50 00 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  1985. ' $1450: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1986. ' $1460: 00 00 00 00 80 00 00 80 23 33 32 00 00 00 80 00 
  1987. ' $1470: ae ee 30 40 03 80 04 00 97 f5 00 22 40 00 80 ff 
  1988. ' $1480: 38 20 88 0f f3 82 00 0b fa 80 11 20 80 20 00 01 
  1989. ' $1490: 50 00 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  1990. ' $14a0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1991. ' $14b0: 00 00 00 00 80 00 00 80 28 30 32 00 00 00 80 01 
  1992. ' $14c0: 2a aa 70 5e 03 00 7c 00 90 04 00 3e 40 c0 80 36 
  1993. ' $14d0: 96 20 88 03 69 62 06 08 02 00 1f 20 80 20 00 01 
  1994. ' $14e0: 50 00 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  1995. ' $14f0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  1996. ' $1500: 00 00 00 00 80 00 00 80 20 60 62 00 00 00 80 01 
  1997. ' $1510: 2e ea 50 40 03 80 04 00 90 05 00 22 40 e0 80 00 
  1998. ' $1520: 1f 20 88 00 01 f2 07 08 02 80 11 20 80 20 00 01 
  1999. ' $1530: 50 00 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2000. ' $1540: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2001. ' $1550: 00 00 00 00 80 00 00 80 28 c0 c2 00 00 00 80 01 
  2002. ' $1560: 22 2a 50 20 01 c0 08 00 90 04 00 00 47 b0 80 10 
  2003. ' $1570: 6f 20 88 01 06 f2 3d 88 02 00 00 20 80 20 00 01 
  2004. ' $1580: 50 00 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2005. ' $1590: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2006. ' $15a0: 00 00 00 00 80 00 00 80 20 00 02 00 00 00 80 01 
  2007. ' $15b0: 2e ee 50 20 00 e0 08 00 90 05 00 24 44 18 80 0f 
  2008. ' $15c0: df 20 88 00 fd f2 20 c8 02 80 12 20 80 20 00 01 
  2009. ' $15d0: 50 06 01 44 8a 40 80 80 00 00 0c 00 00 00 00 00 
  2010. ' $15e0: 80 00 00 00 04 00 00 00 00 00 80 00 00 00 00 00 
  2011. ' $15f0: 00 00 00 00 80 00 00 80 28 c0 c2 00 00 00 80 01 
  2012. ' $1600: 00 00 50 10 00 70 08 00 90 04 00 2a 44 18 80 07 
  2013. ' $1610: e4 20 88 00 7e 42 20 c8 02 00 15 20 80 20 00 01 
  2014. ' $1620: 50 07 01 44 da 40 80 80 00 00 0c 00 00 00 00 00 
  2015. ' $1630: 80 00 00 90 00 10 00 0c 00 00 87 80 00 00 00 00 
  2016. ' $1640: 00 00 04 00 80 00 00 80 20 00 02 00 00 00 80 02 
  2017. ' $1650: 00 00 90 10 00 30 10 00 90 05 00 2a 47 b0 80 0f 
  2018. ' $1660: f8 20 88 00 ff 82 3d 88 02 80 15 20 80 20 00 01 
  2019. ' $1670: 50 3d 81 44 72 40 80 80 00 00 0c 00 00 00 00 00 
  2020. ' $1680: 80 00 00 a3 8c 38 f3 84 00 00 84 4e 38 f3 8e 28 
  2021. ' $1690: a3 9e 3c e0 80 00 00 80 28 00 02 00 00 00 80 02 
  2022. ' $16a0: 00 00 90 08 00 00 10 00 90 04 00 2a 40 e0 80 0f 
  2023. ' $16b0: fc 20 88 00 ff c2 07 08 02 00 15 20 80 20 00 01 
  2024. ' $16c0: 50 20 c1 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2025. ' $16d0: 80 00 00 c2 44 10 27 c4 00 00 87 89 45 12 41 7d 
  2026. ' $16e0: f7 d1 45 f0 80 00 00 80 20 00 02 00 00 00 80 02 
  2027. ' $16f0: 00 00 90 08 00 00 20 00 90 05 00 12 40 c0 80 1f 
  2028. ' $1700: b0 20 88 01 fb 02 06 08 02 80 09 20 80 20 00 01 
  2029. ' $1710: 50 20 c1 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2030. ' $1720: 80 00 00 a2 04 10 44 04 00 00 84 08 44 f2 1f 55 
  2031. ' $1730: 54 11 45 00 80 00 00 80 28 00 02 00 00 00 80 02 
  2032. ' $1740: 00 00 90 04 00 00 40 00 90 04 00 00 40 00 80 18 
  2033. ' $1750: 12 a0 88 01 81 2a 00 08 02 00 00 20 80 20 00 01 
  2034. ' $1760: 50 3d 81 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2035. ' $1770: 80 00 00 92 0e 08 f3 8e 00 00 84 08 38 12 0f 45 
  2036. ' $1780: 13 91 3c e0 80 00 00 ff c0 00 02 00 00 00 80 04 
  2037. ' $1790: 00 01 10 02 00 80 80 00 90 05 00 3e 40 00 80 10 
  2038. ' $17a0: 3a 20 88 01 03 a2 00 08 02 80 1f 20 80 20 00 7f 
  2039. ' $17b0: 50 07 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2040. ' $17c0: 80 00 00 00 00 00 00 00 00 00 80 00 01 e0 00 00 
  2041. ' $17d0: 00 00 00 00 80 00 00 80 08 00 02 00 00 00 80 07 
  2042. ' $17e0: ff ff 10 01 00 81 00 00 9f f8 00 08 40 00 80 06 
  2043. ' $17f0: 00 20 88 00 60 02 00 0f fc 00 04 20 80 20 00 43 
  2044. ' $1800: 50 06 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2045. ' $1810: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2046. ' $1820: 00 00 00 00 80 00 00 80 00 00 02 00 00 00 80 00 
  2047. ' $1830: 80 00 10 00 80 86 00 00 90 01 00 14 40 00 ff ff 
  2048. ' $1840: ff e0 8f ff ff fe 00 08 00 80 0a 20 80 20 00 46 
  2049. ' $1850: 50 00 01 44 22 40 80 80 00 00 0c 00 00 00 00 00 
  2050. ' $1860: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2051. ' $1870: 00 00 00 00 80 00 00 80 08 00 02 00 00 00 80 00 
  2052. ' $1880: ff ff f0 00 70 88 00 00 90 00 00 22 40 00 00 00 
  2053. ' $1890: 00 00 80 00 00 00 00 08 00 00 11 20 80 20 00 4c 
  2054. ' $18a0: 50 00 01 44 22 40 80 c0 00 00 0c 00 00 00 00 00 
  2055. ' $18b0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2056. ' $18c0: 00 00 00 00 80 00 00 80 00 00 02 00 00 00 80 00 
  2057. ' $18d0: 00 00 00 00 0e b0 00 00 90 01 00 00 40 00 00 00 
  2058. ' $18e0: 00 00 80 00 00 00 00 08 00 80 00 20 80 20 00 58 
  2059. ' $18f0: 50 00 01 44 22 40 80 7f ff ff f8 00 00 00 00 00 
  2060. ' $1900: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2061. ' $1910: 00 00 00 00 80 00 00 80 0a aa aa 00 00 00 80 00 
  2062. ' $1920: 00 00 00 00 01 c0 00 00 90 00 00 00 40 00 00 00 
  2063. ' $1930: 00 00 80 00 00 00 00 08 00 00 00 20 80 20 00 70 
  2064. ' $1940: 50 00 01 44 22 40 80 00 00 00 00 00 00 00 00 00 
  2065. ' $1950: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2066. ' $1960: 00 00 00 00 80 00 00 80 00 00 02 00 00 00 80 00 
  2067. ' $1970: 00 00 00 00 00 00 00 00 90 01 55 55 40 00 00 00 
  2068. ' $1980: 00 00 80 00 00 00 00 08 00 aa aa a0 80 3f ff e0 
  2069. ' $1990: 50 00 01 44 22 40 80 00 00 00 00 00 00 00 00 00 
  2070. ' $19a0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2071. ' $19b0: 00 00 00 00 80 00 00 7f ff ff fc 00 00 00 80 00 
  2072. ' $19c0: 00 00 00 00 00 00 00 00 90 00 00 00 40 00 00 00 
  2073. ' $19d0: 00 00 80 00 00 00 00 08 00 00 00 20 80 08 00 00 
  2074. ' $19e0: 50 00 01 64 26 40 80 00 00 00 00 00 00 00 00 00 
  2075. ' $19f0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2076. ' $1a00: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2077. ' $1a10: 00 00 00 00 00 00 00 00 8f ff ff ff 80 00 00 00 
  2078. ' $1a20: 00 00 80 00 00 00 00 07 ff ff ff c0 80 0f ff ff 
  2079. ' $1a30: d0 00 01 86 60 c0 80 3c 72 27 1c 00 00 00 00 00 
  2080. ' $1a40: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2081. ' $1a50: 00 00 00 00 80 00 00 80 00 00 00 00 00 00 80 00 
  2082. ' $1a60: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2083. ' $1a70: 00 00 80 00 00 00 00 00 00 00 00 00 80 02 00 00 
  2084. ' $1a80: 10 00 00 e0 03 80 80 22 fa 2f 92 00 00 00 00 00 
  2085. ' $1a90: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2086. ' $1aa0: 00 00 00 00 83 c0 00 00 80 00 00 00 00 00 80 00 
  2087. ' $1ab0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2088. ' $1ac0: 00 00 80 00 00 00 00 00 00 00 00 00 80 03 ff ff 
  2089. ' $1ad0: f0 00 00 7f ff 00 80 22 82 28 10 00 00 00 00 00 
  2090. ' $1ae0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2091. ' $1af0: 00 00 00 00 84 1e 39 8e b1 ce 00 00 00 00 80 00 
  2092. ' $1b00: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2093. ' $1b10: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2094. ' $1b20: 00 00 00 00 00 00 80 22 71 e7 10 00 00 00 00 00 
  2095. ' $1b30: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2096. ' $1b40: 00 00 00 00 83 91 7c 90 cb e9 70 00 00 00 80 00 
  2097. ' $1b50: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2098. ' $1b60: 00 00 80 00 02 00 00 00 00 00 00 00 80 00 00 00 
  2099. ' $1b70: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2100. ' $1b80: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2101. ' $1b90: 07 e0 00 00 80 51 40 90 8a 08 00 00 00 00 80 00 
  2102. ' $1ba0: 00 00 00 00 00 00 00 00 83 00 08 00 00 00 00 00 
  2103. ' $1bb0: 00 00 80 00 00 02 00 00 00 00 00 00 80 00 00 00 
  2104. ' $1bc0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2105. ' $1bd0: 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 00 00 
  2106. ' $1be0: 06 00 00 00 87 9e 39 ce 89 c8 00 1e 1f 00 80 00 
  2107. ' $1bf0: 00 00 00 00 00 07 86 60 81 1c 79 cf 00 00 00 03 
  2108. ' $1c00: c3 00 87 78 e6 3a c7 39 e0 07 83 c0 80 00 00 1e 
  2109. ' $1c10: 03 c0 0e 00 00 00 80 00 00 00 00 00 00 07 83 c0 
  2110. ' $1c20: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2111. ' $1c30: 06 03 e3 c0 80 10 00 00 00 00 00 1b 19 80 80 00 
  2112. ' $1c40: 00 00 00 00 00 06 c6 60 81 02 8b e8 80 00 00 03 
  2113. ' $1c50: 63 00 8c 45 f2 43 2f a5 10 06 c6 60 80 00 00 1b 
  2114. ' $1c60: 03 60 06 00 30 00 80 1c 00 20 00 00 00 06 c6 60 
  2115. ' $1c70: 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 00 00 
  2116. ' $1c80: 07 c6 06 00 80 00 00 00 00 00 00 19 99 80 80 00 
  2117. ' $1c90: 00 00 00 00 00 06 66 60 81 3e 8a 08 80 00 00 03 
  2118. ' $1ca0: 33 00 83 45 02 42 28 21 10 06 66 00 80 00 00 19 
  2119. ' $1cb0: 83 33 c6 3c fc f0 80 22 71 ef 1c 70 00 06 66 60 
  2120. ' $1cc0: 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 00 00 
  2121. ' $1cd0: 06 03 c6 00 80 00 00 00 00 00 00 19 9f 00 80 00 
  2122. ' $1ce0: 00 00 00 00 00 06 66 60 83 9e 79 c8 80 00 00 03 
  2123. ' $1cf0: 33 00 8e 78 e7 3a 27 21 10 06 63 c0 80 00 00 19 
  2124. ' $1d00: 83 36 66 66 31 98 80 22 4a 28 be 48 00 06 66 60 
  2125. ' $1d10: 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 00 00 
  2126. ' $1d20: 06 00 66 00 80 30 04 00 00 00 00 19 98 00 80 00 
  2127. ' $1d30: 00 00 00 00 00 06 66 60 80 00 00 00 00 00 00 03 
  2128. ' $1d40: 33 00 80 40 00 00 00 00 00 06 60 60 80 00 00 19 
  2129. ' $1d50: 83 37 e6 7e 31 f8 80 22 42 28 a0 40 00 06 66 60 
  2130. ' $1d60: 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 00 00 
  2131. ' $1d70: 07 e7 c3 c0 87 11 ce f0 00 00 00 1b 18 00 80 00 
  2132. ' $1d80: 00 00 00 00 00 06 c6 60 80 00 00 00 00 00 00 03 
  2133. ' $1d90: 63 00 80 00 00 00 00 00 00 06 c6 60 80 00 00 1b 
  2134. ' $1da0: 03 66 06 60 31 80 80 1c 41 e8 9c 40 00 06 c6 60 
  2135. ' $1db0: 80 00 00 00 00 00 00 00 07 c0 80 00 00 00 00 00 
  2136. ' $1dc0: 00 00 00 00 84 90 24 20 00 00 00 1e 18 00 80 00 
  2137. ' $1dd0: 00 00 00 00 00 07 83 e0 80 00 00 00 00 00 00 03 
  2138. ' $1de0: c3 f0 80 00 00 00 00 00 00 07 83 c0 80 00 00 1e 
  2139. ' $1df0: 03 c3 cf 3c 1c f0 80 00 00 00 00 00 00 07 83 c0 
  2140. ' $1e00: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2141. ' $1e10: 00 00 00 00 84 93 e4 40 00 00 00 00 00 00 80 00 
  2142. ' $1e20: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2143. ' $1e30: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2144. ' $1e40: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2145. ' $1e50: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2146. ' $1e60: 00 00 00 00 87 39 e2 f0 00 00 00 00 00 00 80 00 
  2147. ' $1e70: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2148. ' $1e80: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2149. ' $1e90: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2150. ' $1ea0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2151. ' $1eb0: 00 00 00 00 84 00 00 00 00 00 00 00 00 00 80 00 
  2152. ' $1ec0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2153. ' $1ed0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2154. ' $1ee0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2155. ' $1ef0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2156. ' $1f00: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2157. ' $1f10: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2158. ' $1f20: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2159. ' $1f30: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2160. ' $1f40: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2161. ' $1f50: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2162. ' $1f60: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2163. ' $1f70: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2164. ' $1f80: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2165. ' $1f90: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2166. ' $1fa0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2167. ' $1fb0: 00 00 00 00 00 00 00 00 80 00 00 00 00 07 00 00 
  2168. ' $1fc0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2169. ' $1fd0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2170. ' $1fe0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2171. ' $1ff0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2172. ' $2000: 00 00 00 00 00 00 00 00 80 00 00 00 00 fd 00 00 
  2173. ' $2010: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2174. ' $2020: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2175. ' $2030: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2176. ' $2040: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2177. ' $2050: 00 00 00 00 00 00 00 00 80 00 00 00 1f 05 80 00 
  2178. ' $2060: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2179. ' $2070: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2180. ' $2080: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2181. ' $2090: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2182. ' $20a0: 00 00 00 00 00 00 00 00 80 00 00 03 e0 06 80 00 
  2183. ' $20b0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2184. ' $20c0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2185. ' $20d0: 80 00 10 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2186. ' $20e0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2187. ' $20f0: 00 00 00 00 00 00 00 00 80 00 00 7c 00 02 c0 00 
  2188. ' $2100: 00 00 80 00 10 00 00 00 01 00 00 00 80 00 00 00 
  2189. ' $2110: 00 00 00 00 00 00 80 00 00 00 00 00 00 0a 00 00 
  2190. ' $2120: 80 1e 00 c0 40 00 00 00 00 00 80 00 30 01 00 10 
  2191. ' $2130: 00 00 00 00 83 ff ff ff 80 01 ff ff ff c0 81 ff 
  2192. ' $2140: ff ff c0 00 ff ff ff e0 80 00 ff 80 00 02 c0 00 
  2193. ' $2150: 00 00 80 1e 00 c0 40 01 00 00 00 00 83 ff ff ff 
  2194. ' $2160: 80 01 ff ff ff c0 80 00 40 00 00 44 00 00 00 00 
  2195. ' $2170: 80 11 30 43 de 44 a2 8e 38 00 80 00 10 e3 8f 38 
  2196. ' $2180: e1 c0 00 00 82 01 80 00 80 01 00 00 00 40 81 00 
  2197. ' $2190: c0 00 40 00 ff 9f ff e0 80 00 d0 00 00 03 7e 00 
  2198. ' $21a0: 00 00 80 11 30 43 c7 39 63 0e 28 00 82 01 80 00 
  2199. ' $21b0: 80 01 00 c0 00 40 80 0e 59 e3 80 6c e7 91 00 00 
  2200. ' $21c0: 80 1e 10 44 51 45 f7 df 24 00 80 00 11 f1 02 11 
  2201. ' $21d0: f3 00 00 00 82 7e 81 e0 80 01 00 00 00 40 81 3f 
  2202. ' $21e0: 40 f0 40 00 e0 5f 87 e0 80 00 78 00 00 01 f9 80 
  2203. ' $21f0: 00 00 80 1e 10 44 4c 41 91 09 7c 00 82 7e 81 e0 
  2204. ' $2200: 80 01 3f 40 f0 40 80 11 65 17 c0 55 f4 51 00 00 
  2205. ' $2210: 80 11 10 44 51 45 55 50 20 00 80 00 11 01 04 11 
  2206. ' $2220: 00 c0 00 00 82 3e 03 f0 80 01 00 00 00 40 81 1f 
  2207. ' $2230: 01 f8 40 00 f0 7f 03 e0 80 00 48 00 00 03 b8 40 
  2208. ' $2240: 00 00 80 11 10 44 43 41 11 08 54 00 82 3e 03 f0 
  2209. ' $2250: 80 01 1f 01 98 40 80 11 45 14 00 45 04 51 00 00 
  2210. ' $2260: 80 1e 38 e3 d1 3d 14 4e 20 00 80 00 38 e0 8f 08 
  2211. ' $2270: e3 80 00 00 82 03 47 f0 80 01 00 00 00 40 81 01 
  2212. ' $2280: a3 f8 40 00 ff 2e 03 e0 80 00 78 00 00 3c 7c 30 
  2213. ' $2290: 00 00 80 1e 38 e3 ce 39 13 88 44 00 82 03 47 f0 
  2214. ' $22a0: 80 01 01 a3 d8 40 80 0e 45 13 80 44 e4 4f 00 00 
  2215. ' $22b0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2216. ' $22c0: 00 00 00 00 82 03 fc e0 80 01 00 00 00 40 81 01 
  2217. ' $22d0: fe 70 40 00 ff 00 c7 e0 80 00 34 00 07 c0 03 0c 
  2218. ' $22e0: 00 00 80 00 00 00 00 00 00 00 00 00 82 03 fc e0 
  2219. ' $22f0: 80 01 01 fe 70 40 80 00 00 00 00 00 00 00 00 00 
  2220. ' $2300: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2221. ' $2310: 00 00 00 00 82 00 da 58 81 81 00 00 00 40 81 00 
  2222. ' $2320: 6d 2c 40 c0 ff c9 69 e0 80 00 fa 00 78 00 00 c3 
  2223. ' $2330: 80 00 80 00 00 00 00 00 00 00 00 00 82 00 da 58 
  2224. ' $2340: 81 81 00 6d 2c 40 80 00 00 00 00 00 00 00 00 00 
  2225. ' $2350: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2226. ' $2360: 00 00 00 00 82 00 00 7c 81 c1 00 00 00 40 81 00 
  2227. ' $2370: 00 3e 40 e0 ff ff e0 e0 80 1f fa 0f 80 00 00 22 
  2228. ' $2380: c0 00 80 00 00 00 00 00 00 00 00 00 82 00 00 7c 
  2229. ' $2390: 81 c1 00 00 3e 40 80 00 00 00 00 00 00 00 00 00 
  2230. ' $23a0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2231. ' $23b0: 00 00 00 00 82 00 41 bc 8f 61 00 00 00 40 81 00 
  2232. ' $23c0: 20 de 47 b0 ff ef 90 e0 81 e0 9f f0 00 00 00 1b 
  2233. ' $23d0: e0 00 80 00 00 00 00 00 00 00 00 00 82 00 41 bc 
  2234. ' $23e0: 8f 61 00 20 d2 40 80 00 00 00 00 00 00 00 00 00 
  2235. ' $23f0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2236. ' $2400: 00 00 00 00 82 00 3f 7c 88 31 00 00 00 40 81 00 
  2237. ' $2410: 1f be 44 18 ff f0 20 e0 8e 03 88 00 00 00 01 fc 
  2238. ' $2420: f8 00 80 00 00 00 00 00 00 00 00 00 82 00 3f 7c 
  2239. ' $2430: 88 31 00 1f be 40 80 00 00 00 00 00 00 00 00 00 
  2240. ' $2440: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2241. ' $2450: 00 00 00 00 82 00 1f 90 88 31 00 00 00 40 81 00 
  2242. ' $2460: 0f c8 44 18 ff f8 1b e0 8a 00 cc 00 00 00 1e 02 
  2243. ' $2470: 04 00 80 00 00 00 00 00 00 00 00 00 82 00 1f 90 
  2244. ' $2480: 88 31 00 08 c8 40 80 00 00 00 00 00 00 00 00 00 
  2245. ' $2490: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2246. ' $24a0: 00 00 00 00 82 00 3f e0 8f 61 00 00 00 40 81 00 
  2247. ' $24b0: 1f f0 47 b0 ff f0 07 e0 89 00 4a 00 00 03 e0 03 
  2248. ' $24c0: 02 00 80 00 00 00 00 00 00 00 00 00 82 00 3f e0 
  2249. ' $24d0: 8f 61 00 18 70 40 80 00 00 00 00 00 00 00 00 00 
  2250. ' $24e0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2251. ' $24f0: 00 00 00 00 82 00 3f f0 81 c1 00 00 00 40 81 00 
  2252. ' $2500: 1f f8 40 e0 ff f0 03 e0 88 8c 7b 00 00 3c 00 7e 
  2253. ' $2510: 81 00 80 00 00 00 00 00 00 00 00 00 82 00 3f f0 
  2254. ' $2520: 81 c1 00 11 f8 40 80 00 00 00 00 00 00 00 00 00 
  2255. ' $2530: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 00 
  2256. ' $2540: 00 00 00 00 82 00 7e c0 81 81 00 00 00 40 81 00 
  2257. ' $2550: 3f 60 40 c0 ff e0 4f e0 88 4d df 80 07 c0 07 80 
  2258. ' $2560: 40 80 80 00 00 00 00 00 00 00 00 00 82 00 7e c0 
  2259. ' $2570: 81 81 00 3f 60 40 80 00 00 00 00 00 00 00 00 00 
  2260. ' $2580: 80 00 00 00 07 00 00 00 00 00 80 00 00 01 00 00 
  2261. ' $2590: 00 00 00 00 82 00 60 4a 80 01 00 00 00 40 81 00 
  2262. ' $25a0: 30 25 40 00 ff e7 ed 60 8c 2f ca 40 78 00 f8 00 
  2263. ' $25b0: 20 80 80 00 00 00 04 00 00 00 00 00 82 00 60 4a 
  2264. ' $25c0: 80 01 00 30 25 40 80 00 00 00 04 00 00 00 00 00 
  2265. ' $25d0: 80 00 00 00 03 00 00 00 00 00 80 00 01 e0 0c 04 
  2266. ' $25e0: 00 00 00 00 82 00 40 e8 80 01 00 00 00 40 81 00 
  2267. ' $25f0: 20 74 40 00 ff ef c5 e0 8a 1e c1 ff 80 0f 00 00 
  2268. ' $2600: 30 c0 80 00 40 00 00 00 00 00 00 00 82 00 40 e8 
  2269. ' $2610: 80 01 00 20 74 40 80 00 01 00 00 20 00 00 00 00 
  2270. ' $2620: 80 00 00 00 03 00 00 00 00 00 80 00 01 13 04 3c 
  2271. ' $2630: 00 00 00 00 82 00 18 00 80 01 00 00 00 40 81 00 
  2272. ' $2640: 0c 00 40 00 ff f9 ff e0 8a 0e 00 f0 01 f0 00 01 
  2273. ' $2650: ff c0 80 00 48 e7 8c 38 e3 9e 00 00 82 00 18 00 
  2274. ' $2660: 80 01 00 0c 00 40 80 0e 39 e3 8c 71 cf 00 00 00 
  2275. ' $2670: 80 00 00 00 03 00 00 00 00 00 80 00 01 e1 04 44 
  2276. ' $2680: 00 00 00 00 83 ff ff ff 80 01 ff ff ff c0 81 ff 
  2277. ' $2690: ff ff c0 00 ff ff ff e0 89 0c 00 70 1e 00 00 3e 
  2278. ' $26a0: 07 c0 80 00 71 14 44 7c 97 d1 00 00 83 ff ff ff 
  2279. ' $26b0: 80 01 ff ff ff c0 80 01 25 17 c4 23 e8 80 00 00 
  2280. ' $26c0: 80 00 00 00 03 00 00 00 00 00 80 00 01 11 04 44 
  2281. ' $26d0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2282. ' $26e0: 00 00 00 00 00 00 00 00 88 86 00 33 e0 00 03 c0 
  2283. ' $26f0: fc 40 80 00 49 14 44 40 84 11 00 00 80 00 00 00 
  2284. ' $2700: 00 00 00 00 00 00 80 1f 21 14 04 22 08 80 00 00 
  2285. ' $2710: 80 00 00 00 0f c0 00 00 00 00 80 00 01 e3 8e 3c 
  2286. ' $2720: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2287. ' $2730: 00 00 00 00 00 00 00 00 8c 41 00 3c 00 00 7c 1f 
  2288. ' $2740: 04 40 80 00 44 e7 8e 38 83 91 00 00 80 00 00 00 
  2289. ' $2750: 00 00 00 00 00 00 80 0f 21 e3 8e 11 c8 80 00 00 
  2290. ' $2760: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2291. ' $2770: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 40 
  2292. ' $2780: 00 00 00 04 00 00 00 00 8a 40 8f f0 00 07 81 e0 
  2293. ' $2790: 04 40 80 00 00 04 00 00 00 00 00 00 80 00 00 10 
  2294. ' $27a0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2295. ' $27b0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2296. ' $27c0: 00 00 00 00 80 0a 00 00 00 00 00 00 00 00 80 00 
  2297. ' $27d0: 00 00 01 00 00 00 00 00 8a 20 b8 30 00 f8 3e 00 
  2298. ' $27e0: 04 40 80 00 00 00 00 00 00 00 00 00 81 10 00 00 
  2299. ' $27f0: c0 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2300. ' $2800: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2301. ' $2810: 00 00 00 00 83 00 00 04 00 00 00 00 00 00 80 c7 
  2302. ' $2820: 91 38 e3 8c 38 e3 9e 00 89 10 bc 38 0f 03 c0 00 
  2303. ' $2830: 3c 40 80 00 00 00 00 00 00 00 00 00 81 12 8e 31 
  2304. ' $2840: 20 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2305. ' $2850: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2306. ' $2860: 00 00 00 00 81 0e 1c e5 8e 78 00 00 00 00 80 44 
  2307. ' $2870: 51 7c 91 04 7c 97 d1 00 88 90 5d f1 f0 7c 00 07 
  2308. ' $2880: e4 40 80 00 00 00 00 00 00 00 00 00 81 17 c9 11 
  2309. ' $2890: c0 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2310. ' $28a0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2311. ' $28b0: 00 00 00 00 81 11 31 06 5f 44 00 00 00 00 80 44 
  2312. ' $28c0: 4a 40 81 04 40 84 11 00 84 88 5f 7e 07 80 00 fc 
  2313. ' $28d0: bc 40 80 00 00 00 00 00 00 00 00 00 81 15 48 11 
  2314. ' $28e0: 20 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2315. ' $28f0: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 00 
  2316. ' $2900: 00 00 00 00 81 11 0d 04 50 44 00 00 00 00 80 e4 
  2317. ' $2910: 44 38 80 8e 38 83 91 00 82 44 63 c0 f8 00 07 94 
  2318. ' $2920: e0 40 80 00 00 00 00 00 00 00 00 00 80 f4 48 39 
  2319. ' $2930: c0 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2320. ' $2940: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 00 
  2321. ' $2950: 00 00 00 00 83 8e 38 e4 4e 44 00 00 00 00 80 00 
  2322. ' $2960: 00 00 00 00 00 00 00 00 82 22 3e 7f 00 00 f8 9f 
  2323. ' $2970: 07 c0 80 00 00 00 00 00 00 00 00 00 80 00 00 01 
  2324. ' $2980: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2325. ' $2990: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 00 
  2326. ' $29a0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2327. ' $29b0: 00 00 00 00 00 00 00 00 81 22 2f c0 00 1f 01 e0 
  2328. ' $29c0: 78 40 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2329. ' $29d0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2330. ' $29e0: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 00 
  2331. ' $29f0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2332. ' $2a00: 00 00 00 00 00 00 00 00 80 91 30 40 03 e0 3e 0f 
  2333. ' $2a10: 80 40 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2334. ' $2a20: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2335. ' $2a30: 80 01 80 00 03 00 00 18 00 00 80 00 00 00 00 00 
  2336. ' $2a40: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2337. ' $2a50: 00 00 00 00 00 00 00 00 80 88 a0 40 7c 01 c0 f0 
  2338. ' $2a60: 00 40 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2339. ' $2a70: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2340. ' $2a80: 80 03 00 00 03 00 00 0c 00 00 80 00 00 00 00 00 
  2341. ' $2a90: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2342. ' $2aa0: 00 00 00 00 00 00 00 00 80 48 60 4f 80 1e 0f 00 
  2343. ' $2ab0: 01 c0 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2344. ' $2ac0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2345. ' $2ad0: 80 06 00 00 03 00 00 06 00 00 80 00 00 00 00 00 
  2346. ' $2ae0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2347. ' $2af0: 00 00 00 00 00 00 00 00 80 24 20 70 01 e0 f0 00 
  2348. ' $2b00: 3f 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2349. ' $2b10: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2350. ' $2b20: 80 0f fc 00 03 00 0f ff 00 00 80 00 00 00 00 00 
  2351. ' $2b30: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2352. ' $2b40: 00 00 00 00 00 00 00 00 80 22 20 40 3e 0f 00 01 
  2353. ' $2b50: ca 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2354. ' $2b60: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2355. ' $2b70: 80 06 00 00 03 00 00 06 00 00 80 00 00 00 00 06 
  2356. ' $2b80: 60 00 60 00 80 00 00 03 c0 01 c0 00 00 00 80 00 
  2357. ' $2b90: 00 00 00 00 00 00 00 00 80 12 20 47 c0 f0 00 3e 
  2358. ' $2ba0: 0e 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2359. ' $2bb0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2360. ' $2bc0: 80 03 00 00 03 00 00 0c 00 00 80 00 00 00 00 06 
  2361. ' $2bd0: 60 00 60 00 80 00 00 03 60 00 c0 00 c0 00 80 00 
  2362. ' $2be0: 00 00 00 00 00 00 01 e0 80 09 20 78 1f 00 03 c0 
  2363. ' $2bf0: 00 00 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 
  2364. ' $2c00: 00 00 00 00 06 60 80 00 00 00 00 00 00 00 03 c0 
  2365. ' $2c10: 80 01 80 00 03 00 00 18 00 00 80 00 00 00 00 06 
  2366. ' $2c20: 67 c3 e3 c0 80 00 00 03 31 e0 c1 e3 f1 e0 80 00 
  2367. ' $2c30: 00 00 00 00 00 00 00 c0 80 08 a0 03 f0 00 7c 00 
  2368. ' $2c40: 03 e0 80 00 00 00 00 00 00 00 0d 80 80 00 00 00 
  2369. ' $2c50: 00 00 00 00 06 60 80 00 00 00 00 00 00 00 06 60 
  2370. ' $2c60: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 06 
  2371. ' $2c70: 66 66 66 60 80 00 00 03 33 30 c3 30 c3 30 80 00 
  2372. ' $2c80: 00 00 00 00 00 00 00 c0 80 04 a0 0e 00 03 80 00 
  2373. ' $2c90: 03 30 80 00 00 00 00 00 00 00 0f 00 80 00 00 00 
  2374. ' $2ca0: 00 00 00 00 06 60 80 00 00 00 00 00 00 00 06 60 
  2375. ' $2cb0: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 06 
  2376. ' $2cc0: 66 66 66 60 80 00 00 03 33 f0 c3 f0 c3 f0 80 00 
  2377. ' $2cd0: 00 00 00 00 00 00 00 c0 80 02 61 f0 00 3c 00 00 
  2378. ' $2ce0: 03 30 80 00 00 00 00 00 00 00 0e 00 80 00 00 00 
  2379. ' $2cf0: 00 00 00 00 06 60 80 00 00 00 00 00 00 00 06 60 
  2380. ' $2d00: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 06 
  2381. ' $2d10: 66 66 66 60 80 00 00 03 63 00 c3 00 c3 00 80 00 
  2382. ' $2d20: 00 00 00 00 00 00 00 c0 80 02 7f 00 03 c0 00 00 
  2383. ' $2d30: 03 e0 80 00 00 00 00 00 00 00 0f 00 80 00 00 00 
  2384. ' $2d40: 00 00 00 00 06 60 80 00 00 00 00 00 00 00 06 60 
  2385. ' $2d50: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 03 
  2386. ' $2d60: e6 63 e3 c0 80 00 00 03 c1 e1 e1 e0 71 e0 80 00 
  2387. ' $2d70: 00 00 00 00 00 00 00 c0 80 01 a0 00 3c 00 00 00 
  2388. ' $2d80: 03 00 80 00 00 00 00 00 00 00 0d 80 80 00 00 00 
  2389. ' $2d90: 00 00 00 00 06 60 80 00 00 00 00 00 00 00 06 60 
  2390. ' $2da0: 80 00 00 00 03 00 00 00 00 00 80 00 00 00 00 00 
  2391. ' $2db0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2392. ' $2dc0: 00 00 00 00 00 00 01 e0 80 00 a0 03 c0 00 00 00 
  2393. ' $2dd0: 03 00 80 00 00 00 00 00 00 00 0c c0 80 00 00 00 
  2394. ' $2de0: 00 00 00 00 03 e0 80 00 00 00 00 00 00 00 03 c0 
  2395. ' $2df0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2396. ' $2e00: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2397. ' $2e10: 00 00 00 00 00 00 00 00 80 00 e0 7c 00 00 00 00 
  2398. ' $2e20: 03 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2399. ' $2e30: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2400. ' $2e40: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2401. ' $2e50: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2402. ' $2e60: 00 00 00 00 00 00 00 00 80 00 6f 80 00 00 00 00 
  2403. ' $2e70: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2404. ' $2e80: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2405. ' $2e90: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2406. ' $2ea0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2407. ' $2eb0: 00 00 00 00 00 00 00 00 80 00 30 00 00 00 00 00 
  2408. ' $2ec0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2409. ' $2ed0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2410. ' $2ee0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2411. ' $2ef0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2412. ' $2f00: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2413. ' $2f10: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2414. ' $2f20: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2415. ' $2f30: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2416. ' $2f40: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2417. ' $2f50: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2418. ' $2f60: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2419. ' $2f70: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2420. ' $2f80: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2421. ' $2f90: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2422. ' $2fa0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2423. ' $2fb0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2424. ' $2fc0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2425. ' $2fd0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2426. ' $2fe0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2427. ' $2ff0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2428. ' $3000: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 1f 
  2429. ' $3010: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2430. ' $3020: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2431. ' $3030: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2432. ' $3040: 00 00 00 00 00 00 03 c0 80 00 00 e0 00 00 00 00 
  2433. ' $3050: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 20 
  2434. ' $3060: 80 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2435. ' $3070: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2436. ' $3080: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2437. ' $3090: 00 00 00 00 00 00 fc 00 80 00 01 f0 00 00 00 00 
  2438. ' $30a0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 40 
  2439. ' $30b0: 40 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2440. ' $30c0: 80 00 00 00 00 00 00 c0 00 00 80 00 00 80 00 00 
  2441. ' $30d0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2442. ' $30e0: 00 00 00 00 00 7f 00 00 80 00 01 f8 00 00 07 f8 
  2443. ' $30f0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 51 
  2444. ' $3100: 40 00 00 00 00 00 80 00 00 00 00 00 07 ff 80 00 
  2445. ' $3110: 80 00 00 00 00 00 01 c0 00 00 80 00 00 40 00 00 
  2446. ' $3120: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2447. ' $3130: 00 00 00 00 3f 80 00 00 80 00 03 fc 00 00 3f f8 
  2448. ' $3140: 00 00 80 04 98 20 00 00 00 00 00 00 80 00 00 5b 
  2449. ' $3150: 44 00 00 00 00 00 80 00 00 00 00 07 fc 6c 70 00 
  2450. ' $3160: 80 00 00 00 00 00 03 e0 00 00 80 00 00 20 00 00 
  2451. ' $3170: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2452. ' $3180: 00 00 00 0f c0 00 00 00 80 00 07 fe 00 00 ff f8 
  2453. ' $3190: 00 00 80 03 16 04 00 00 00 00 00 00 80 00 00 55 
  2454. ' $31a0: 40 40 07 00 00 00 80 01 ff ff ff fe c6 c6 cc 00 
  2455. ' $31b0: 80 00 00 00 00 00 07 c0 00 00 80 00 00 10 00 00 
  2456. ' $31c0: 00 00 00 00 80 00 00 00 00 00 01 00 00 00 80 00 
  2457. ' $31d0: 00 00 07 f0 00 00 00 00 80 00 03 ff 00 07 ff f0 
  2458. ' $31e0: 00 00 80 28 14 00 80 00 00 00 00 00 80 00 00 51 
  2459. ' $31f0: 40 04 3f e0 00 00 80 03 e3 e3 e3 e3 e3 e3 e4 00 
  2460. ' $3200: 80 00 00 00 00 00 0f 80 00 00 80 00 00 08 00 00 
  2461. ' $3210: 00 00 00 00 80 00 00 00 00 00 06 00 00 00 80 00 
  2462. ' $3220: 00 01 f8 00 00 00 00 00 80 00 01 ff 80 1f ff f0 
  2463. ' $3230: 00 00 80 40 82 00 10 00 00 00 00 00 80 00 00 20 
  2464. ' $3240: 80 01 f8 f8 00 00 80 0d f1 f1 f1 f1 f1 f1 f4 00 
  2465. ' $3250: 80 00 00 00 00 00 1f 00 00 00 80 38 00 04 00 00 
  2466. ' $3260: 00 00 00 00 80 00 00 00 00 00 1c 00 00 00 80 00 
  2467. ' $3270: 00 fe 00 00 00 00 00 00 80 00 00 ff c0 3f ff f0 
  2468. ' $3280: 00 00 80 54 01 90 02 00 00 00 00 00 80 00 00 1f 
  2469. ' $3290: 00 07 c0 1e 00 00 80 18 d8 d8 d8 d8 d8 d8 dc 00 
  2470. ' $32a0: 80 00 00 00 00 00 3e 00 30 00 80 07 e0 02 00 00 
  2471. ' $32b0: 00 00 00 00 80 00 00 00 00 00 64 00 00 00 80 00 
  2472. ' $32c0: 7f 00 00 00 00 00 00 00 80 04 00 7f e0 7f ff e0 
  2473. ' $32d0: 00 00 80 22 48 c0 00 40 00 00 00 00 80 00 00 00 
  2474. ' $32e0: 00 0c 00 07 00 00 80 2d 8d 8d 8d 8d 8d 8d 8c 00 
  2475. ' $32f0: 80 00 00 00 00 00 7c 00 70 00 80 00 1f 01 00 00 
  2476. ' $3300: 00 00 00 00 80 00 00 00 00 01 88 01 00 00 80 1f 
  2477. ' $3310: 80 00 00 00 00 00 00 00 80 0e 00 3f f0 7f ff c0 
  2478. ' $3320: 00 00 80 91 40 a0 20 08 00 00 00 00 80 00 00 00 
  2479. ' $3330: 00 18 00 01 c0 00 80 3f 1f 1f 1f 1f 1f 1f 1c 00 
  2480. ' $3340: 80 00 00 00 00 00 f8 00 f8 00 80 00 00 fc 80 00 
  2481. ' $3350: 00 00 00 00 80 00 00 00 00 06 10 00 80 00 81 ff 
  2482. ' $3360: ff ff ff ff ff ff ff c0 80 1e 00 1f f8 ff ff c0 
  2483. ' $3370: 00 00 80 48 ad c0 00 01 01 80 00 00 80 00 00 00 
  2484. ' $3380: 00 30 00 00 e0 00 80 fe 3e 3e 3e 3e 3e 3e 3c 00 
  2485. ' $3390: 80 07 e0 00 00 01 f0 01 fe 00 80 00 00 03 e0 00 
  2486. ' $33a0: 00 00 00 00 80 00 00 00 00 08 20 00 80 00 80 fe 
  2487. ' $33b0: 00 00 00 00 00 00 00 00 80 1f 00 0f fc ff ff 80 
  2488. ' $33c0: 00 00 80 02 92 00 00 40 7f c0 00 00 80 00 00 04 
  2489. ' $33d0: 00 60 00 00 30 00 80 ec 6c 6c 6c 6c 6c 6c 68 00 
  2490. ' $33e0: 80 0c 10 00 00 03 e0 03 fe 00 80 00 00 00 3f 80 
  2491. ' $33f0: 00 00 00 00 80 00 00 00 00 30 40 00 40 00 80 71 
  2492. ' $3400: f0 00 00 00 00 00 00 00 80 0f c0 07 de 7f ff 00 
  2493. ' $3410: 18 00 80 93 7e a0 10 02 1f f8 00 00 80 00 00 00 
  2494. ' $3420: 00 60 00 00 18 00 80 c6 c6 c6 c6 c6 c6 c6 c8 00 
  2495. ' $3430: 80 18 10 00 00 07 c0 07 fe 00 80 00 00 00 10 7c 
  2496. ' $3440: 00 00 00 00 80 00 00 00 00 c0 40 00 40 00 80 4c 
  2497. ' $3450: 0f c0 00 00 00 00 00 00 80 07 e0 07 ff 3f fe 00 
  2498. ' $3460: 38 00 80 61 e8 04 00 10 23 c6 00 00 80 00 00 00 
  2499. ' $3470: 00 c0 00 00 0c 00 80 e3 e3 e3 e3 e3 e3 e3 f0 00 
  2500. ' $3480: 80 10 10 00 00 0f 80 0f fc 00 80 00 00 00 08 03 
  2501. ' $3490: f0 00 00 00 80 00 00 00 03 00 80 00 20 00 80 23 
  2502. ' $34a0: 00 3e 00 00 00 00 00 00 80 03 f0 07 ff 8f fc 00 
  2503. ' $34b0: 78 00 80 27 28 a0 00 80 43 c1 00 00 80 00 00 01 
  2504. ' $34c0: 01 80 00 00 0c 00 80 f1 f1 f1 f1 f1 f1 f1 e0 00 
  2505. ' $34d0: 80 30 30 00 00 1f 00 1f f8 00 80 00 00 00 04 00 
  2506. ' $34e0: 0e 00 00 00 80 00 00 00 0c 01 00 00 20 00 80 10 
  2507. ' $34f0: c0 01 f0 00 00 00 00 00 80 01 f8 0f ff cf fc 00 
  2508. ' $3500: f8 00 80 40 b8 00 04 00 83 c0 80 00 80 00 00 00 
  2509. ' $3510: 01 87 80 0f 06 00 80 d8 d8 d8 d8 d8 d8 d8 c0 00 
  2510. ' $3520: 80 20 40 00 c0 3e 00 3f f0 00 80 00 00 00 02 00 
  2511. ' $3530: 00 00 06 00 80 00 00 00 30 02 00 00 10 00 80 08 
  2512. ' $3540: 30 00 0f 80 00 00 00 00 80 00 fc 1d ff e7 f8 01 
  2513. ' $3550: f8 00 80 49 42 c0 20 01 81 80 c0 00 80 00 00 00 
  2514. ' $3560: 03 07 80 0f 06 00 80 8d 8d 8d a5 8d 8d 8f 00 00 
  2515. ' $3570: 80 20 40 00 80 7c 00 7f e0 00 80 00 00 00 01 00 
  2516. ' $3580: 00 00 18 00 80 00 00 00 c0 04 00 00 08 00 80 08 
  2517. ' $3590: 0c 00 00 7c 00 00 00 00 80 00 7e 37 ff f3 f0 07 
  2518. ' $35a0: f8 00 80 00 58 01 00 01 80 00 c0 00 80 00 00 00 
  2519. ' $35b0: 43 07 80 0f 06 00 80 9f 1f 1f 37 1f 1f 1c 00 00 
  2520. ' $35c0: 80 20 60 01 80 f8 00 ff c0 00 80 00 00 00 00 80 
  2521. ' $35d0: 00 00 e0 00 80 00 00 01 00 08 00 00 08 00 80 04 
  2522. ' $35e0: 03 00 00 03 f0 00 00 00 80 00 3f 43 7f f9 e0 0f 
  2523. ' $35f0: f8 00 80 11 00 88 00 01 c0 01 c0 00 80 00 00 00 
  2524. ' $3600: 06 07 80 0f 03 00 80 be 3e 3e 3a 3e 3e 60 00 00 
  2525. ' $3610: 80 10 30 01 00 f0 01 ff 80 00 80 00 00 00 00 40 
  2526. ' $3620: 00 03 00 00 80 00 00 06 00 08 00 00 04 00 80 02 
  2527. ' $3630: 00 c0 00 00 0f 80 00 00 80 00 1f 82 ff fc c0 1f 
  2528. ' $3640: f8 00 80 0c 02 40 00 01 e0 03 c0 00 80 00 00 00 
  2529. ' $3650: 06 07 f0 ff 03 00 80 6c 6c 6c 3c 7f ff 80 00 00 
  2530. ' $3660: 80 10 10 02 01 f0 03 ff 00 00 80 00 00 00 00 20 
  2531. ' $3670: 00 1c 00 00 80 00 00 18 00 10 00 00 04 00 80 01 
  2532. ' $3680: 00 30 00 00 00 70 00 00 80 00 08 01 ff fe 00 3f 
  2533. ' $3690: f8 00 80 00 ac 00 00 01 be 3f c0 00 80 00 00 00 
  2534. ' $36a0: 16 07 f0 ff 03 00 80 26 c6 c6 be 80 00 00 00 00 
  2535. ' $36b0: 80 10 18 02 03 a0 07 fe 00 00 80 00 00 00 00 10 
  2536. ' $36c0: 00 60 00 00 80 00 00 60 00 20 00 00 02 00 80 01 
  2537. ' $36d0: 00 0c 00 00 00 00 00 00 80 00 04 03 df ff 00 3f 
  2538. ' $36e0: f0 00 80 02 42 00 00 01 ff ff c0 00 80 00 00 00 
  2539. ' $36f0: 0c 07 f0 ff 01 80 80 13 e3 e3 bf 00 00 00 00 00 
  2540. ' $3700: 80 10 04 02 06 20 0f fc 00 00 80 00 00 00 00 08 
  2541. ' $3710: 03 80 00 00 80 00 01 80 00 40 00 00 02 00 80 00 
  2542. ' $3720: 80 03 00 00 00 00 00 00 80 00 02 04 7d ff 80 7f 
  2543. ' $3730: f0 00 80 00 00 00 00 01 ee ee c0 00 80 00 00 00 
  2544. ' $3740: 0c 07 f0 ff 01 80 80 0d f1 f1 bf 80 00 00 00 00 
  2545. ' $3750: 80 10 04 06 04 20 1f f8 00 00 80 00 00 00 00 04 
  2546. ' $3760: 0c 00 00 00 80 00 06 00 00 80 00 00 01 00 80 00 
  2547. ' $3770: 40 00 c0 00 00 00 00 00 80 00 00 f8 3f 7f c0 ff 
  2548. ' $3780: e0 00 80 00 00 00 00 01 ff ff c0 00 80 00 00 00 
  2549. ' $3790: 0c 07 8f 0f 01 80 80 03 f8 df bf c0 00 00 00 00 
  2550. ' $37a0: 80 08 04 04 04 20 3f f0 00 00 80 00 00 00 00 02 
  2551. ' $37b0: 70 00 00 00 80 00 08 00 00 80 00 00 01 00 80 00 
  2552. ' $37c0: 20 00 30 00 00 00 00 00 80 00 00 f0 1e 7f c0 ff 
  2553. ' $37d0: c0 00 80 00 00 00 00 01 bb bb c0 00 80 00 00 00 
  2554. ' $37e0: 06 07 8f 0f 03 80 80 00 07 e0 3e 00 00 00 00 00 
  2555. ' $37f0: 80 0c 03 1c 04 3f ff e0 00 00 80 00 00 00 00 01 
  2556. ' $3800: 80 00 00 00 80 00 30 00 01 00 00 00 00 80 80 00 
  2557. ' $3810: 20 00 0c 00 00 00 00 00 80 00 00 00 3c ff e3 ff 
  2558. ' $3820: c0 00 80 00 00 00 00 01 ff ff c0 00 80 00 00 00 
  2559. ' $3830: 06 07 8f 0f 03 00 80 00 00 00 36 00 00 00 00 00 
  2560. ' $3840: 80 06 00 f0 04 1c 3f c0 00 00 80 00 00 00 00 0e 
  2561. ' $3850: 80 00 00 00 80 00 c0 00 03 ff ff ff ff 80 80 00 
  2562. ' $3860: 10 00 03 00 00 00 00 00 80 00 00 20 59 db e7 ff 
  2563. ' $3870: 80 00 80 00 00 00 00 01 ee ee c0 00 80 20 00 00 
  2564. ' $3880: 06 07 8f 0f 03 00 80 00 00 00 23 00 00 00 00 00 
  2565. ' $3890: 80 02 00 00 08 00 7f 80 00 00 80 00 00 00 00 30 
  2566. ' $38a0: 40 00 00 00 80 03 00 00 00 00 00 00 00 00 80 00 
  2567. ' $38b0: 08 00 00 c0 00 00 00 00 80 00 00 1b f7 87 e7 ff 
  2568. ' $38c0: 00 00 80 00 00 00 00 01 ff ff c0 00 91 04 00 00 
  2569. ' $38d0: 03 07 80 0f 06 00 80 00 00 00 03 00 00 00 00 00 
  2570. ' $38e0: 80 02 00 00 08 01 ff 00 00 00 80 00 00 00 01 c0 
  2571. ' $38f0: 20 00 00 00 80 0c 00 00 00 00 00 00 00 00 80 00 
  2572. ' $3900: 04 00 00 30 00 00 00 00 80 00 00 0e c1 07 ef fe 
  2573. ' $3910: 00 00 80 00 00 00 00 01 bb bb c0 00 9b 64 9c 70 
  2574. ' $3920: 03 07 80 0f 06 00 80 00 00 00 01 80 00 00 00 00 
  2575. ' $3930: 80 03 00 00 08 00 7e 00 00 00 80 00 00 00 06 00 
  2576. ' $3940: 10 00 00 00 80 30 00 00 00 00 00 00 00 00 80 00 
  2577. ' $3950: 04 00 00 0c 00 00 00 00 80 00 00 06 00 01 4f fe 
  2578. ' $3960: 00 00 80 00 00 00 00 01 ff ff c0 00 95 27 12 8b 
  2579. ' $3970: c1 87 80 0f 0c 00 80 00 00 00 01 80 00 00 00 00 
  2580. ' $3980: 80 01 00 00 08 0d fc 00 00 00 80 00 00 00 38 00 
  2581. ' $3990: 08 00 00 00 80 40 00 00 00 00 00 00 00 00 80 00 
  2582. ' $39a0: 02 00 00 03 00 00 00 00 80 00 00 02 00 01 df fc 
  2583. ' $39b0: 00 00 80 00 00 00 00 01 ee ee c0 00 91 24 90 88 
  2584. ' $39c0: 01 87 80 0f 0c 00 80 00 00 00 00 00 00 00 00 00 
  2585. ' $39d0: 80 01 80 00 10 1e f8 00 00 00 80 00 00 00 c0 00 
  2586. ' $39e0: 04 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2587. ' $39f0: 01 00 00 00 c0 00 00 00 80 00 00 01 00 01 9f f8 
  2588. ' $3a00: 00 00 80 00 02 80 00 01 ff ff c0 00 91 74 50 70 
  2589. ' $3a10: 00 c0 00 00 18 00 80 00 00 00 00 00 00 00 00 00 
  2590. ' $3a20: 80 00 80 00 10 3b f0 00 00 00 80 00 00 07 00 00 
  2591. ' $3a30: 02 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2592. ' $3a40: 00 00 00 00 30 00 00 00 80 00 00 00 80 03 3f f0 
  2593. ' $3a50: 00 00 80 00 00 10 00 01 bb bb c0 00 80 00 00 00 
  2594. ' $3a60: 00 c0 00 00 10 00 80 00 00 00 00 00 00 00 00 00 
  2595. ' $3a70: 80 00 c0 00 10 f7 c0 00 00 00 80 00 00 18 00 00 
  2596. ' $3a80: 01 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2597. ' $3a90: 00 00 00 00 0c 00 00 00 80 00 00 00 40 06 7f c0 
  2598. ' $3aa0: 00 00 87 78 e4 56 39 e1 ff ff c0 00 80 00 00 00 
  2599. ' $3ab0: 00 60 00 00 33 18 80 00 00 00 00 00 00 00 00 00 
  2600. ' $3ac0: 80 00 60 00 11 9e 00 00 01 f8 80 00 00 e0 00 00 
  2601. ' $3ad0: 00 80 00 f8 80 00 00 00 00 00 00 00 01 80 80 00 
  2602. ' $3ae0: 00 00 00 00 03 00 00 00 80 00 00 00 20 0c fe 00 
  2603. ' $3af0: 01 f0 8c 44 94 59 7d 11 ee ee c0 f0 80 00 00 00 
  2604. ' $3b00: 00 30 00 00 63 b8 80 00 00 00 00 00 00 00 00 60 
  2605. ' $3b10: 80 00 20 00 3d f8 00 00 01 80 80 00 03 00 00 00 
  2606. ' $3b20: 00 40 01 80 80 00 00 00 00 00 00 00 01 80 80 00 
  2607. ' $3b30: 00 00 00 00 00 c0 01 98 80 00 00 00 10 38 00 00 
  2608. ' $3b40: 01 98 83 44 84 51 41 11 ff ff c1 98 80 00 00 00 
  2609. ' $3b50: 00 1c 00 01 c3 f8 80 00 00 0a 00 00 00 00 00 f0 
  2610. ' $3b60: 80 00 30 00 3f c0 00 00 01 80 80 00 0c 00 00 00 
  2611. ' $3b70: 00 20 01 80 80 00 00 00 00 00 00 00 01 80 80 00 
  2612. ' $3b80: 00 00 00 00 00 30 00 f0 80 00 00 00 0c 60 00 00 
  2613. ' $3b90: 01 98 8e 78 83 d1 39 10 bb bb 81 80 80 80 00 00 
  2614. ' $3ba0: 00 07 00 07 83 58 80 00 00 c0 30 c0 00 00 01 98 
  2615. ' $3bb0: 80 00 18 00 3f 80 00 00 01 f0 80 00 00 00 00 00 
  2616. ' $3bc0: 00 10 01 b8 80 00 00 00 00 00 00 00 01 80 80 00 
  2617. ' $3bd0: 00 00 00 00 00 0c 03 fc 80 00 00 00 03 80 00 00 
  2618. ' $3be0: 01 f0 80 40 00 00 00 00 7f ff 00 f0 8e 91 cf 00 
  2619. ' $3bf0: 00 03 c0 1e 03 18 8e 44 71 11 10 43 9e 00 01 98 
  2620. ' $3c00: 80 00 0e 00 7e 00 00 00 01 80 80 00 00 00 00 00 
  2621. ' $3c10: 00 08 01 98 80 00 00 00 00 00 00 00 01 80 80 00 
  2622. ' $3c20: 00 00 00 00 00 03 00 f0 80 00 00 00 00 00 00 00 
  2623. ' $3c30: 01 b0 80 00 00 00 00 00 2e ee 00 18 98 e2 28 80 
  2624. ' $3c40: 00 00 f8 f8 03 18 81 44 c3 d1 10 47 d1 00 01 f8 
  2625. ' $3c50: 80 00 03 80 78 00 00 00 01 80 80 00 00 00 00 00 
  2626. ' $3c60: 00 04 01 98 80 00 00 00 00 00 00 00 01 80 80 00 
  2627. ' $3c70: 00 00 00 00 00 00 81 98 80 00 00 00 00 00 00 00 
  2628. ' $3c80: 01 98 80 00 00 00 00 00 1f fc 01 98 86 92 28 80 
  2629. ' $3c90: 00 00 3f e0 03 18 9f 44 31 11 10 44 11 00 01 98 
  2630. ' $3ca0: 80 00 00 ff f0 00 00 00 01 80 80 00 00 00 00 00 
  2631. ' $3cb0: 00 02 00 f8 80 00 00 00 00 00 00 00 01 f8 80 00 
  2632. ' $3cc0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2633. ' $3cd0: 01 98 80 00 00 00 00 00 01 c0 00 f0 9c 89 cf 00 
  2634. ' $3ce0: 00 00 07 00 00 00 8f 3c e1 0f 38 e3 91 00 01 98 
  2635. ' $3cf0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2636. ' $3d00: 00 01 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2637. ' $3d10: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2638. ' $3d20: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 08 00 
  2639. ' $3d30: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2640. ' $3d40: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2641. ' $3d50: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2642. ' $3d60: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2643. ' $3d70: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2644. ' $3d80: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2645. ' $3d90: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2646. ' $3da0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2647. ' $3db0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2648. ' $3dc0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2649. ' $3dd0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2650. ' $3de0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2651. ' $3df0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2652. ' $3e00: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2653. ' $3e10: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2654. ' $3e20: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2655. ' $3e30: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2656. ' $3e40: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2657. ' $3e50: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2658. ' $3e60: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2659. ' $3e70: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2660. ' $3e80: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2661. ' $3e90: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2662. ' $3ea0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2663. ' $3eb0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2664. ' $3ec0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2665. ' $3ed0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2666. ' $3ee0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2667. ' $3ef0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2668. ' $3f00: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2669. ' $3f10: 1e 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2670. ' $3f20: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2671. ' $3f30: 60 00 00 00 80 08 00 00 00 00 00 00 00 00 80 00 
  2672. ' $3f40: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2673. ' $3f50: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 01 
  2674. ' $3f60: e7 f0 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2675. ' $3f70: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 01 
  2676. ' $3f80: 98 00 00 00 80 0e 00 00 00 00 00 00 00 00 80 00 
  2677. ' $3f90: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2678. ' $3fa0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 0f 
  2679. ' $3fb0: 17 7e 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2680. ' $3fc0: 80 00 00 00 0f 00 00 00 00 00 80 00 00 00 00 02 
  2681. ' $3fd0: 06 00 00 00 80 0b 80 00 00 00 03 ff f0 00 80 00 
  2682. ' $3fe0: 00 00 00 00 00 00 00 00 80 00 00 1f ff ff ff ff 
  2683. ' $3ff0: f8 00 80 00 00 00 00 00 00 00 00 00 80 00 00 3c 
  2684. ' $4000: 06 ab 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2685. ' $4010: 80 00 00 00 f5 f0 00 00 00 00 80 00 00 00 00 0c 
  2686. ' $4020: 01 80 00 00 80 0d 40 00 00 06 03 55 58 00 80 00 
  2687. ' $4030: 00 00 00 00 00 00 00 00 80 00 00 75 55 55 55 55 
  2688. ' $4040: 56 00 80 00 00 00 00 00 00 00 00 00 80 00 00 64 
  2689. ' $4050: 45 dd c0 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2690. ' $4060: 80 00 00 03 aa ae 00 00 00 00 80 00 00 00 00 10 
  2691. ' $4070: 00 40 00 00 80 0a b0 00 00 39 04 00 08 00 80 00 
  2692. ' $4080: 00 00 00 00 00 00 00 00 80 00 01 aa aa aa aa aa 
  2693. ' $4090: ab 80 80 00 00 00 00 00 00 00 00 00 80 00 01 80 
  2694. ' $40a0: 06 aa a0 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2695. ' $40b0: 80 00 0c 0d 55 55 80 00 00 00 80 00 00 00 3e 20 
  2696. ' $40c0: 00 20 00 00 80 0d 58 00 03 c1 05 55 54 00 80 00 
  2697. ' $40d0: 00 00 00 00 00 00 00 00 80 00 ff 55 55 55 55 55 
  2698. ' $40e0: 55 40 80 00 00 00 00 00 00 00 00 00 80 00 03 91 
  2699. ' $40f0: 17 77 78 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2700. ' $4100: 80 00 33 9a aa aa c0 00 00 00 80 00 00 0f eb c0 
  2701. ' $4110: 00 10 00 00 80 0a ae 00 1c 00 88 00 04 00 80 00 
  2702. ' $4120: 00 00 00 00 00 00 00 00 80 03 06 aa aa aa aa aa 
  2703. ' $4130: aa a0 80 00 00 00 00 00 00 00 00 00 80 00 06 80 
  2704. ' $4140: 06 aa ac 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2705. ' $4150: 80 01 c0 75 55 55 60 00 00 00 80 00 00 f5 55 40 
  2706. ' $4160: 00 10 00 00 80 0d 55 80 e0 00 4d 55 56 00 80 00 
  2707. ' $4170: 00 00 00 00 00 00 00 00 80 0c 05 55 55 55 55 55 
  2708. ' $4180: 55 60 81 80 00 00 00 00 00 00 00 00 80 00 0d 44 
  2709. ' $4190: 45 dd de 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2710. ' $41a0: 80 02 00 1a aa aa b0 00 00 00 80 00 03 aa aa 80 
  2711. ' $41b0: 00 08 00 00 80 0a aa c7 00 00 30 00 01 00 80 3f 
  2712. ' $41c0: ff ff ff ff ff ff ff 00 80 10 0a aa aa aa aa aa 
  2713. ' $41d0: aa b0 80 e0 00 00 00 00 00 00 00 00 80 00 18 20 
  2714. ' $41e0: 06 aa ab 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2715. ' $41f0: 80 04 00 05 55 55 58 00 00 00 80 00 1d 55 55 80 
  2716. ' $4200: 00 08 00 00 80 0d 55 78 00 00 35 55 55 00 80 35 
  2717. ' $4210: 55 55 55 55 55 55 55 00 80 20 0d 55 55 55 55 55 
  2718. ' $4220: 55 50 80 d8 00 00 00 00 00 00 00 70 80 00 15 51 
  2719. ' $4230: 17 77 77 80 00 00 80 00 00 00 00 00 00 00 00 00 
  2720. ' $4240: 80 08 00 02 aa aa ac 00 00 00 80 00 6a aa aa 80 
  2721. ' $4250: 00 04 00 00 80 0a ab 80 00 00 10 00 00 80 80 2a 
  2722. ' $4260: aa aa aa aa aa aa ab 00 80 20 1a aa aa aa aa aa 
  2723. ' $4270: aa a8 80 6e 00 00 00 00 00 00 07 b0 80 00 20 10 
  2724. ' $4280: 06 aa aa c0 00 00 80 00 00 00 00 00 00 00 00 00 
  2725. ' $4290: 80 10 00 01 55 55 56 00 00 00 80 00 d5 55 55 00 
  2726. ' $42a0: 00 04 00 00 80 0d 5c 00 00 00 0d 55 55 80 80 35 
  2727. ' $42b0: 55 55 55 55 55 55 55 00 80 40 15 55 55 55 55 55 
  2728. ' $42c0: 55 58 80 35 c0 00 00 00 00 00 7d 50 80 00 55 5c 
  2729. ' $42d0: 45 dd dd c0 00 00 80 00 00 00 00 00 00 00 00 00 
  2730. ' $42e0: 80 20 00 00 aa aa ab 00 00 00 80 03 aa aa a9 00 
  2731. ' $42f0: 00 02 00 00 80 0a a8 00 00 00 04 00 00 40 80 2a 
  2732. ' $4300: aa aa aa aa aa aa ab 00 80 40 1a aa aa aa aa aa 
  2733. ' $4310: aa a8 80 1a b0 00 00 00 00 07 aa b0 80 00 40 04 
  2734. ' $4320: 06 aa aa a0 00 00 80 00 00 00 00 00 00 00 00 00 
  2735. ' $4330: 80 20 00 00 55 55 55 80 00 00 80 05 55 55 56 00 
  2736. ' $4340: 00 02 00 00 80 0d 58 00 00 00 05 55 55 40 80 35 
  2737. ' $4350: 55 55 55 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2738. ' $4360: 55 58 80 15 5c 00 00 00 00 7d 55 50 80 00 d5 57 
  2739. ' $4370: 17 77 77 60 00 00 80 00 00 00 00 00 00 00 00 00 
  2740. ' $4380: 80 40 00 00 6a aa aa 80 00 00 80 0a aa aa aa 00 
  2741. ' $4390: 00 02 00 00 80 0a a8 00 00 00 02 00 00 20 80 2a 
  2742. ' $43a0: aa aa aa aa aa aa ab 00 80 80 1a aa aa aa aa aa 
  2743. ' $43b0: aa a8 80 0a ab 00 00 00 07 aa aa b0 80 01 80 02 
  2744. ' $43c0: 06 aa aa b0 00 00 80 00 00 00 00 00 00 00 00 00 
  2745. ' $43d0: 80 40 00 00 55 55 55 40 00 00 80 15 55 55 56 00 
  2746. ' $43e0: 00 02 00 00 80 0d 58 00 00 00 01 55 55 40 80 35 
  2747. ' $43f0: 55 55 55 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2748. ' $4400: 55 58 80 05 55 e0 00 00 7d 55 55 60 80 01 55 55 
  2749. ' $4410: 45 dd dd d0 00 00 80 00 00 00 00 00 00 00 00 00 
  2750. ' $4420: 80 80 00 00 2a aa aa c0 00 00 80 1a aa aa aa 00 
  2751. ' $4430: 00 02 00 00 80 0a a8 00 00 00 01 00 00 40 80 2a 
  2752. ' $4440: aa aa aa aa aa aa ab 00 80 80 1a aa aa aa aa aa 
  2753. ' $4450: aa a8 80 06 aa b8 00 07 aa aa aa a0 80 01 00 00 
  2754. ' $4460: 86 aa aa b0 00 00 80 00 00 00 00 00 00 00 00 00 
  2755. ' $4470: 80 80 00 00 35 55 55 60 00 00 80 35 55 55 56 00 
  2756. ' $4480: 00 02 00 00 80 0d 58 00 00 00 00 d5 55 80 80 35 
  2757. ' $4490: 7f ff ff d5 55 55 55 00 80 80 15 55 55 55 55 55 
  2758. ' $44a0: 55 58 80 03 55 56 00 7d 55 55 55 60 80 03 55 55 
  2759. ' $44b0: 57 77 77 78 00 00 80 00 00 00 00 00 00 00 00 00 
  2760. ' $44c0: 80 80 00 00 1a aa aa a0 00 00 80 2a aa aa aa 00 
  2761. ' $44d0: 00 03 00 00 80 0a a8 00 00 00 00 40 01 00 80 2a 
  2762. ' $44e0: a0 00 00 6a aa aa ab 00 80 80 1a aa aa aa aa aa 
  2763. ' $44f0: aa a8 80 01 aa ab 87 aa aa aa aa a0 80 02 00 00 
  2764. ' $4500: 46 aa aa a8 00 00 80 00 00 00 00 00 00 00 00 00 
  2765. ' $4510: 81 00 00 00 15 55 55 60 00 00 80 55 55 55 54 00 
  2766. ' $4520: 00 01 00 00 80 0d 58 00 00 00 00 35 55 00 80 35 
  2767. ' $4530: 60 00 00 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2768. ' $4540: 55 58 80 00 d5 55 7d 55 55 55 55 60 80 03 55 55 
  2769. ' $4550: 65 dd dd d8 00 00 80 00 00 00 00 00 00 00 00 00 
  2770. ' $4560: 80 80 00 00 1a aa aa a0 00 00 80 ea aa aa ac 00 
  2771. ' $4570: 00 01 80 00 80 0a a8 00 00 00 00 20 02 00 80 2a 
  2772. ' $4580: a0 00 00 6a aa aa ab 00 80 80 1a aa aa aa aa aa 
  2773. ' $4590: aa a8 80 00 aa aa aa aa aa aa aa a0 80 02 00 00 
  2774. ' $45a0: 16 aa aa a8 00 00 80 00 00 00 00 00 00 00 00 00 
  2775. ' $45b0: 80 80 00 00 35 55 55 50 00 00 80 d5 55 55 54 00 
  2776. ' $45c0: 00 01 80 00 80 0d 58 00 00 00 00 15 56 00 80 35 
  2777. ' $45d0: 60 00 00 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2778. ' $45e0: 55 58 80 00 55 55 55 55 55 55 55 60 80 07 55 55 
  2779. ' $45f0: 5f 77 77 7c 00 00 80 00 00 00 00 00 00 00 00 00 
  2780. ' $4600: 80 80 00 00 2a aa aa b0 00 00 80 aa aa aa aa 00 
  2781. ' $4610: 00 02 80 00 80 0a e8 00 00 00 00 08 04 00 80 2a 
  2782. ' $4620: a0 00 00 6a aa aa ab 00 80 80 1a aa aa aa aa aa 
  2783. ' $4630: aa a8 80 00 2a aa aa aa aa aa aa a0 80 04 00 00 
  2784. ' $4640: 0e aa aa ac 00 00 80 00 00 00 00 00 00 00 00 00 
  2785. ' $4650: 80 40 00 00 55 55 55 50 00 00 81 55 55 55 56 00 
  2786. ' $4660: 00 03 40 00 80 0d 88 00 00 00 00 05 58 00 80 35 
  2787. ' $4670: 60 00 00 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2788. ' $4680: 55 58 80 00 15 55 55 55 57 55 55 60 80 07 ff ff 
  2789. ' $4690: ff dd dd dc 00 00 80 00 00 00 00 00 00 00 00 00 
  2790. ' $46a0: 80 40 00 00 6a aa aa b0 00 00 81 aa aa aa aa 00 
  2791. ' $46b0: 00 02 c0 00 80 0e 08 00 00 00 00 04 08 00 80 2a 
  2792. ' $46c0: a0 00 00 6a aa aa ab 00 80 80 1a aa aa aa aa aa 
  2793. ' $46d0: aa a8 80 00 1a aa aa aa aa ea aa a0 80 06 22 22 
  2794. ' $46e0: 27 ea aa ac 00 00 80 00 00 00 00 00 00 00 00 00 
  2795. ' $46f0: 80 20 00 00 55 55 55 50 00 00 81 55 55 55 56 00 
  2796. ' $4700: 00 03 40 00 80 08 08 00 00 00 00 03 f0 00 80 35 
  2797. ' $4710: 60 00 00 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2798. ' $4720: 55 58 80 00 0d 55 55 55 54 35 55 60 80 03 55 55 
  2799. ' $4730: 5d 7f 77 7c 00 00 80 00 00 00 00 00 00 00 00 00 
  2800. ' $4740: 80 20 00 00 aa aa aa a0 00 00 80 aa aa aa aa 00 
  2801. ' $4750: 00 02 80 00 80 00 08 00 00 00 00 04 00 00 80 2a 
  2802. ' $4760: a0 00 00 6a aa aa ab 00 80 80 1a aa aa aa aa aa 
  2803. ' $4770: aa a8 80 00 06 aa aa aa ac 0e aa a0 80 02 88 88 
  2804. ' $4780: 8a af aa a8 00 00 80 00 00 00 00 00 00 00 00 00 
  2805. ' $4790: 80 10 00 01 55 55 55 60 00 00 80 d5 55 55 56 00 
  2806. ' $47a0: 00 03 80 00 80 00 08 00 00 00 00 08 00 00 80 35 
  2807. ' $47b0: 60 00 00 55 55 55 55 00 80 80 15 55 55 55 55 55 
  2808. ' $47c0: 55 58 80 00 05 55 55 55 54 03 55 40 80 03 55 55 
  2809. ' $47d0: 5d 55 fd d8 00 00 80 00 00 00 00 00 00 00 00 00 
  2810. ' $47e0: 80 08 00 02 aa aa aa a0 00 00 80 6a aa aa ab 00 
  2811. ' $47f0: 00 02 80 00 80 00 08 00 00 00 00 08 00 00 80 2a 
  2812. ' $4800: a0 00 00 6a aa aa ab 00 80 80 0a aa aa aa aa aa 
  2813. ' $4810: aa b0 80 00 02 aa aa aa a8 00 ea c0 80 02 22 22 
  2814. ' $4820: 3a aa ae a8 00 00 80 00 00 00 00 00 00 00 00 00 
  2815. ' $4830: 80 04 00 05 55 55 55 60 00 00 80 55 55 55 55 00 
  2816. ' $4840: 00 05 00 00 80 00 08 00 00 00 00 10 00 00 80 3f 
  2817. ' $4850: e0 00 00 7f ff ff ff 00 80 80 0d 55 55 55 55 55 
  2818. ' $4860: 55 50 80 00 01 55 55 55 58 00 35 40 80 03 55 55 
  2819. ' $4870: 55 55 55 f8 00 00 80 00 00 00 00 00 00 00 00 00 
  2820. ' $4880: 80 02 00 1a aa aa aa c0 00 00 80 2a aa aa aa 80 
  2821. ' $4890: 00 07 00 00 80 00 08 00 00 00 00 20 00 00 80 00 
  2822. ' $48a0: 20 00 00 40 00 00 00 00 80 80 06 aa aa aa aa aa 
  2823. ' $48b0: aa a0 80 00 00 aa aa aa a8 00 0e c0 80 01 88 88 
  2824. ' $48c0: 9a aa aa b0 00 00 80 00 00 00 00 00 00 00 00 00 
  2825. ' $48d0: 80 01 c0 75 55 55 55 40 00 00 80 35 55 55 55 80 
  2826. ' $48e0: 00 0e 00 00 80 00 08 00 00 00 00 40 00 00 80 00 
  2827. ' $48f0: 20 00 00 40 00 00 00 00 80 80 05 55 55 55 55 55 
  2828. ' $4900: 55 60 80 00 00 d5 55 55 50 00 03 40 80 01 d5 55 
  2829. ' $4910: 75 55 55 50 00 00 80 00 00 00 00 00 00 00 00 00 
  2830. ' $4920: 80 00 33 aa aa aa aa 80 00 00 80 1a aa aa aa 80 
  2831. ' $4930: 00 0c 00 00 80 00 08 00 00 00 00 40 00 00 80 00 
  2832. ' $4940: 20 00 00 40 00 00 00 00 80 80 02 aa aa aa aa aa 
  2833. ' $4950: aa c0 80 00 03 ea aa aa b0 00 00 c0 80 01 a2 22 
  2834. ' $4960: 2a aa aa b0 00 00 80 00 00 00 00 00 00 00 00 00 
  2835. ' $4970: 80 00 0d 55 55 55 55 80 00 00 80 15 55 55 55 40 
  2836. ' $4980: 00 14 00 00 80 00 08 00 00 00 00 80 00 00 80 00 
  2837. ' $4990: 20 00 00 40 00 00 00 00 80 80 01 d5 55 55 55 55 
  2838. ' $49a0: 55 80 80 00 fd 55 55 55 50 00 00 00 80 00 d5 55 
  2839. ' $49b0: 75 55 55 60 00 00 80 00 00 00 00 00 00 00 00 00 
  2840. ' $49c0: 80 00 06 aa aa aa ab 00 00 00 80 0a aa aa aa c0 
  2841. ' $49d0: 00 18 00 00 80 00 08 00 00 00 01 00 00 00 80 00 
  2842. ' $49e0: 20 00 00 40 00 00 00 00 80 80 00 6a aa aa aa aa 
  2843. ' $49f0: ae 00 80 0f aa aa aa aa a0 00 00 00 80 00 48 88 
  2844. ' $4a00: aa aa aa e0 00 00 80 00 00 00 00 00 00 00 00 00 
  2845. ' $4a10: 80 00 03 55 55 55 56 00 00 00 80 05 55 55 55 60 
  2846. ' $4a20: 00 30 00 00 80 00 08 00 00 00 02 00 00 00 80 00 
  2847. ' $4a30: 20 00 00 40 00 00 00 00 80 80 00 1f ff ff ff ff 
  2848. ' $4a40: f8 00 80 03 d5 55 55 55 60 00 00 00 80 00 55 55 
  2849. ' $4a50: 55 55 55 40 00 00 80 00 00 00 00 00 00 00 00 00 
  2850. ' $4a60: 80 00 01 aa aa aa ac 00 00 00 80 03 aa aa aa b0 
  2851. ' $4a70: 00 40 00 00 80 00 08 00 00 00 02 00 00 00 80 00 
  2852. ' $4a80: 20 00 00 40 00 00 00 00 80 80 00 00 00 10 00 00 
  2853. ' $4a90: 00 00 80 00 3e aa aa aa c0 07 e3 c0 80 00 22 22 
  2854. ' $4aa0: 6a aa aa 80 00 00 80 00 00 00 00 00 00 00 00 00 
  2855. ' $4ab0: 80 00 00 d5 55 55 58 00 00 00 80 00 d5 55 55 5c 
  2856. ' $4ac0: 01 80 00 00 80 00 08 00 00 00 04 03 f3 f0 80 00 
  2857. ' $4ad0: 20 00 00 40 00 0f c1 80 80 40 00 00 00 20 00 0f 
  2858. ' $4ae0: cf c0 80 00 03 d5 55 55 40 06 06 00 80 00 35 55 
  2859. ' $4af0: 55 55 55 80 00 00 80 00 00 00 00 00 00 00 00 00 
  2860. ' $4b00: 80 00 00 6a aa aa b0 01 f8 60 80 00 6a aa aa aa 
  2861. ' $4b10: 06 07 e3 c0 80 00 0c 00 00 00 08 03 00 60 80 00 
  2862. ' $4b20: 20 00 00 40 00 0c 03 80 80 40 00 00 00 20 00 0c 
  2863. ' $4b30: 0c 00 80 00 00 3e aa aa c0 06 06 00 80 00 18 88 
  2864. ' $4b40: aa aa ab 01 f9 f8 80 00 00 00 00 00 00 00 00 00 
  2865. ' $4b50: 80 00 00 35 55 55 60 01 80 e0 80 00 1d 55 55 55 
  2866. ' $4b60: 98 06 06 60 80 00 03 80 00 00 10 03 00 c0 80 00 
  2867. ' $4b70: 20 00 00 40 00 0c 07 80 80 20 00 00 00 40 00 0c 
  2868. ' $4b80: 0f 80 80 00 00 03 d5 55 80 07 c7 c0 80 00 0d 55 
  2869. ' $4b90: d5 55 56 01 80 18 80 00 00 00 00 00 00 00 00 00 
  2870. ' $4ba0: 80 00 00 1a aa aa c0 01 80 60 80 00 03 aa aa aa 
  2871. ' $4bb0: e0 06 00 60 80 00 00 78 00 00 10 03 e0 60 80 00 
  2872. ' $4bc0: 20 00 00 40 00 0f 8d 80 80 20 00 00 00 40 00 0f 
  2873. ' $4bd0: 80 c0 80 00 00 00 3e aa 80 06 06 60 80 00 06 22 
  2874. ' $4be0: aa aa a8 01 80 30 80 00 00 00 00 00 00 00 00 00 
  2875. ' $4bf0: 80 00 00 0d 55 55 80 01 f0 60 80 00 00 f5 55 5f 
  2876. ' $4c00: 80 07 c0 c0 80 00 00 07 00 00 20 03 00 30 80 00 
  2877. ' $4c10: 20 00 00 40 00 0c 0f c0 80 10 00 00 00 80 00 0c 
  2878. ' $4c20: 00 c0 80 00 00 00 03 d5 80 06 06 60 80 00 03 55 
  2879. ' $4c30: 55 55 50 01 f0 60 80 00 00 00 00 00 00 00 00 00 
  2880. ' $4c40: 80 00 00 03 aa ae 00 01 80 60 80 00 00 0f eb f0 
  2881. ' $4c50: 00 06 01 80 80 00 00 00 e0 00 40 03 03 30 80 00 
  2882. ' $4c60: 20 00 00 40 00 0c 01 80 80 0c 00 00 03 00 00 0c 
  2883. ' $4c70: 0c c0 80 00 00 00 00 3f 00 06 03 c0 80 00 00 c9 
  2884. ' $4c80: aa aa e0 01 80 c0 80 00 00 00 00 00 00 00 00 00 
  2885. ' $4c90: 80 00 00 00 f5 f0 00 01 80 60 80 00 00 00 3e 00 
  2886. ' $4ca0: 00 06 03 00 80 00 00 00 1c 00 80 03 01 e0 80 00 
  2887. ' $4cb0: 20 00 00 40 00 0c 01 80 80 03 00 00 0c 00 00 0c 
  2888. ' $4cc0: 07 80 80 00 00 00 00 03 00 00 00 00 80 00 00 75 
  2889. ' $4cd0: 55 55 c0 01 80 c0 80 00 00 00 00 00 00 00 00 00 
  2890. ' $4ce0: 80 00 00 00 0f 00 00 01 81 f8 80 00 00 00 00 00 
  2891. ' $4cf0: 00 06 07 e0 80 00 00 00 03 c0 80 00 00 00 80 00 
  2892. ' $4d00: 3f ff ff c0 00 00 00 00 80 00 ff ff f0 00 00 00 
  2893. ' $4d10: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 3a 
  2894. ' $4d20: aa ab 00 01 80 c0 80 00 00 00 00 00 00 00 00 00 
  2895. ' $4d30: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2896. ' $4d40: 00 00 00 00 80 00 00 00 00 39 00 00 00 00 80 00 
  2897. ' $4d50: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2898. ' $4d60: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 0f 
  2899. ' $4d70: d5 5e 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2900. ' $4d80: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2901. ' $4d90: 00 00 00 00 80 00 00 00 00 06 00 00 00 00 80 00 
  2902. ' $4da0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2903. ' $4db0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 01 
  2904. ' $4dc0: ff f0 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2905. ' $4dd0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2906. ' $4de0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2907. ' $4df0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2908. ' $4e00: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2909. ' $4e10: 1e 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2910. ' $4e20: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2911. ' $4e30: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2912. ' $4e40: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2913. ' $4e50: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2914. ' $4e60: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  2915. ' $4e70: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2916. ' $4e80: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2917. ' $4e90: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2918. ' $4ea0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2919. ' $4eb0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2920. ' $4ec0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2921. ' $4ed0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2922. ' $4ee0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2923. ' $4ef0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2924. ' $4f00: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2925. ' $4f10: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2926. ' $4f20: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2927. ' $4f30: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2928. ' $4f40: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2929. ' $4f50: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2930. ' $4f60: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2931. ' $4f70: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2932. ' $4f80: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2933. ' $4f90: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2934. ' $4fa0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2935. ' $4fb0: 80 00 00 00 04 00 00 00 00 00 80 00 00 00 04 00 
  2936. ' $4fc0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2937. ' $4fd0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2938. ' $4fe0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2939. ' $4ff0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2940. ' $5000: 80 0f 01 00 00 0c 40 00 10 00 80 0f 01 00 00 0c 
  2941. ' $5010: 40 00 10 00 80 00 00 07 c0 00 40 00 00 00 80 00 
  2942. ' $5020: 00 f3 8f 45 14 40 00 00 80 00 00 f3 8f 45 14 40 
  2943. ' $5030: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2944. ' $5040: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2945. ' $5050: 80 10 39 63 8c 10 e3 8e 38 00 80 10 39 63 8c 10 
  2946. ' $5060: e3 8e 38 00 80 00 00 01 0e 24 e0 00 00 00 80 00 
  2947. ' $5070: 01 01 10 65 16 c0 00 00 80 00 01 01 10 65 16 c0 
  2948. ' $5080: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2949. ' $5090: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2950. ' $50a0: 80 0e 41 92 44 3c 40 49 10 00 80 0e 41 92 44 3c 
  2951. ' $50b0: 40 49 10 00 80 00 00 01 1f 18 40 00 00 00 80 00 
  2952. ' $50c0: 00 e1 13 55 15 40 00 00 80 00 00 e1 13 55 15 40 
  2953. ' $50d0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2954. ' $50e0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2955. ' $50f0: 80 01 41 12 04 10 47 c8 10 00 80 01 41 12 04 10 
  2956. ' $5100: 47 c8 10 00 80 00 00 01 10 18 40 00 00 00 80 00 
  2957. ' $5110: 00 11 11 4d 14 40 00 00 80 00 00 11 11 4d 14 40 
  2958. ' $5120: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2959. ' $5130: 00 00 00 00 00 00 80 00 00 00 20 00 00 00 00 00 
  2960. ' $5140: 80 1e 39 12 0e 10 23 c8 08 00 80 1e 39 12 0e 10 
  2961. ' $5150: 23 c8 08 00 80 00 00 01 0e 24 20 00 00 00 80 00 
  2962. ' $5160: 01 e3 8f 44 f4 40 00 00 80 00 01 e3 8f 44 f4 40 
  2963. ' $5170: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2964. ' $5180: 00 00 00 00 00 00 80 00 00 22 01 81 80 00 00 00 
  2965. ' $5190: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2966. ' $51a0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2967. ' $51b0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2968. ' $51c0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2969. ' $51d0: 00 00 00 00 00 00 80 00 00 22 60 82 1c 00 00 00 
  2970. ' $51e0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2971. ' $51f0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2972. ' $5200: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2973. ' $5210: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2974. ' $5220: 00 00 00 00 00 00 80 00 00 3e 20 87 be 00 00 00 
  2975. ' $5230: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2976. ' $5240: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2977. ' $5250: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2978. ' $5260: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2979. ' $5270: 00 00 00 00 00 00 80 00 00 22 20 82 20 00 00 00 
  2980. ' $5280: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2981. ' $5290: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2982. ' $52a0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2983. ' $52b0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2984. ' $52c0: 00 00 00 00 00 00 80 00 00 22 71 c2 1c 00 00 00 
  2985. ' $52d0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2986. ' $52e0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2987. ' $52f0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2988. ' $5300: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2989. ' $5310: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2990. ' $5320: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2991. ' $5330: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2992. ' $5340: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2993. ' $5350: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2994. ' $5360: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  2995. ' $5370: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  2996. ' $5380: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  2997. ' $5390: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  2998. ' $53a0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  2999. ' $53b0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3000. ' $53c0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3001. ' $53d0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3002. ' $53e0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3003. ' $53f0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3004. ' $5400: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3005. ' $5410: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3006. ' $5420: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3007. ' $5430: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3008. ' $5440: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3009. ' $5450: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3010. ' $5460: 80 00 00 00 0a 00 00 00 00 00 80 00 00 00 00 00 
  3011. ' $5470: 00 00 00 00 80 00 00 00 00 00 40 00 00 00 80 00 
  3012. ' $5480: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 40 00 
  3013. ' $5490: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3014. ' $54a0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3015. ' $54b0: 80 00 00 00 00 40 c0 00 00 00 80 00 00 00 00 00 
  3016. ' $54c0: 00 00 00 00 80 00 00 04 00 00 04 00 00 00 80 00 
  3017. ' $54d0: 00 07 c0 00 40 00 00 00 80 00 00 04 00 00 04 00 
  3018. ' $54e0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3019. ' $54f0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3020. ' $5500: 80 0e 44 74 4e 58 43 9e 00 00 80 00 00 00 00 00 
  3021. ' $5510: 00 00 00 00 80 00 1c e5 8e 38 c7 8e 78 00 80 00 
  3022. ' $5520: 00 04 0e 78 e0 00 00 00 80 00 1c e5 8e 38 c7 8e 
  3023. ' $5530: 78 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3024. ' $5540: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3025. ' $5550: 80 01 44 c5 41 64 47 d1 00 00 80 00 00 00 00 00 
  3026. ' $5560: 00 00 00 00 80 00 31 06 49 7c 44 5f 44 00 80 00 
  3027. ' $5570: 00 07 91 44 40 00 00 00 80 00 31 06 49 7c 44 5f 
  3028. ' $5580: 44 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3029. ' $5590: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3030. ' $55a0: 80 1f 44 35 5f 44 44 11 00 00 80 00 00 00 00 00 
  3031. ' $55b0: 00 00 00 00 80 00 0d 04 48 40 44 50 44 00 80 00 
  3032. ' $55c0: 00 04 11 44 40 00 00 00 80 00 0d 04 48 40 44 50 
  3033. ' $55d0: 44 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3034. ' $55e0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3035. ' $55f0: 80 0f 3c e6 cf 44 e3 91 00 00 80 00 00 00 00 00 
  3036. ' $5600: 00 00 00 00 80 00 38 e4 48 38 e7 8e 44 00 80 00 
  3037. ' $5610: 00 04 0e 44 20 00 00 00 80 00 38 e4 48 38 e7 8e 
  3038. ' $5620: 44 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3039. ' $5630: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3040. ' $5640: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3041. ' $5650: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3042. ' $5660: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3043. ' $5670: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3044. ' $5680: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3045. ' $5690: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3046. ' $56a0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3047. ' $56b0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3048. ' $56c0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3049. ' $56d0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3050. ' $56e0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3051. ' $56f0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3052. ' $5700: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3053. ' $5710: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3054. ' $5720: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3055. ' $5730: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 03 18 
  3056. ' $5740: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3057. ' $5750: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3058. ' $5760: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3059. ' $5770: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3060. ' $5780: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 03 18 
  3061. ' $5790: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3062. ' $57a0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3063. ' $57b0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3064. ' $57c0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3065. ' $57d0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 03 18 
  3066. ' $57e0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3067. ' $57f0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3068. ' $5800: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3069. ' $5810: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3070. ' $5820: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 03 18 
  3071. ' $5830: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3072. ' $5840: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3073. ' $5850: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3074. ' $5860: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3075. ' $5870: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 03 18 
  3076. ' $5880: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3077. ' $5890: 00 00 18 00 00 00 00 00 80 00 00 00 0c 00 00 00 
  3078. ' $58a0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3079. ' $58b0: 00 00 00 00 00 00 80 00 00 33 00 1c 00 00 00 00 
  3080. ' $58c0: 80 00 00 00 31 80 00 00 00 00 80 00 00 00 03 58 
  3081. ' $58d0: 00 00 00 00 80 00 00 00 1f 80 00 00 00 00 80 00 
  3082. ' $58e0: 00 00 3c 31 80 00 00 00 80 00 00 00 1e 1f 80 00 
  3083. ' $58f0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3084. ' $5900: 00 00 00 00 00 00 80 00 00 33 00 0c 00 00 00 00 
  3085. ' $5910: 80 00 00 00 31 80 00 00 00 00 80 00 00 00 03 58 
  3086. ' $5920: 00 00 00 00 80 00 00 00 06 00 00 00 00 00 80 00 
  3087. ' $5930: 00 00 66 31 80 00 00 00 80 00 00 00 33 06 00 00 
  3088. ' $5940: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3089. ' $5950: 00 00 00 00 00 00 80 00 00 33 1e 0c 3e 00 00 00 
  3090. ' $5960: 80 00 00 00 31 80 00 00 00 00 80 00 00 00 03 f8 
  3091. ' $5970: 00 00 00 00 80 00 00 00 06 00 00 00 00 00 80 00 
  3092. ' $5980: 00 00 c3 31 80 00 00 00 80 00 00 00 61 86 00 00 
  3093. ' $5990: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3094. ' $59a0: 00 00 00 00 00 00 80 00 00 3f 33 0c 33 00 00 00 
  3095. ' $59b0: 80 00 00 00 35 80 00 00 00 00 80 00 00 00 03 f8 
  3096. ' $59c0: 00 00 00 00 80 00 00 00 06 00 00 00 00 00 80 00 
  3097. ' $59d0: 00 00 e7 35 80 00 00 00 80 00 00 00 73 86 00 00 
  3098. ' $59e0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3099. ' $59f0: 00 00 00 00 00 00 80 00 00 33 3f 0c 33 00 00 00 
  3100. ' $5a00: 80 00 00 00 3f 80 00 00 00 00 80 00 00 00 03 b8 
  3101. ' $5a10: 00 00 00 00 80 00 00 00 06 00 00 00 00 00 80 00 
  3102. ' $5a20: 00 00 24 3f 80 00 00 00 80 00 00 00 12 06 00 00 
  3103. ' $5a30: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3104. ' $5a40: 00 00 00 00 00 00 80 00 00 33 30 0c 33 00 00 00 
  3105. ' $5a50: 80 00 00 00 3b 80 00 00 00 00 80 00 00 00 03 18 
  3106. ' $5a60: 00 00 00 00 80 00 00 00 06 00 00 00 00 00 80 00 
  3107. ' $5a70: 00 00 24 3b 80 00 00 00 80 00 00 00 12 06 00 00 
  3108. ' $5a80: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3109. ' $5a90: 00 00 00 00 00 00 80 00 00 33 1e 1e 3e 00 00 00 
  3110. ' $5aa0: 80 00 00 00 31 80 00 00 00 00 80 00 00 00 02 08 
  3111. ' $5ab0: 00 00 00 00 80 00 00 00 06 00 00 00 00 00 80 00 
  3112. ' $5ac0: 00 00 3c 31 80 00 00 00 80 00 00 00 1e 06 00 00 
  3113. ' $5ad0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3114. ' $5ae0: 00 00 00 00 00 00 80 00 00 00 00 00 30 00 00 00 
  3115. ' $5af0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3116. ' $5b00: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3117. ' $5b10: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3118. ' $5b20: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3119. ' $5b30: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3120. ' $5b40: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3121. ' $5b50: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3122. ' $5b60: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3123. ' $5b70: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3124. ' $5b80: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3125. ' $5b90: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3126. ' $5ba0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3127. ' $5bb0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3128. ' $5bc0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3129. ' $5bd0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3130. ' $5be0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3131. ' $5bf0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3132. ' $5c00: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3133. ' $5c10: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3134. ' $5c20: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3135. ' $5c30: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3136. ' $5c40: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3137. ' $5c50: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3138. ' $5c60: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3139. ' $5c70: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3140. ' $5c80: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3141. ' $5c90: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3142. ' $5ca0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3143. ' $5cb0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3144. ' $5cc0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3145. ' $5cd0: 8f 87 00 00 0c 00 00 00 00 00 00 03 00 00 00 00 
  3146. ' $5ce0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3147. ' $5cf0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3148. ' $5d00: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3149. ' $5d10: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3150. ' $5d20: 8c c3 00 00 0c 00 00 00 00 00 03 00 00 00 00 00 
  3151. ' $5d30: 03 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3152. ' $5d40: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3153. ' $5d50: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3154. ' $5d60: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3155. ' $5d70: 8c c3 07 87 8c c7 8f 87 8f 87 8f c7 07 8f 87 8f 
  3156. ' $5d80: 83 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3157. ' $5d90: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3158. ' $5da0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3159. ' $5db0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3160. ' $5dc0: ef 83 0c cc 0d 8c cc cc cc c0 c3 03 0c cc cc cc 
  3161. ' $5dd0: c0 1f ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3162. ' $5de0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3163. ' $5df0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3164. ' $5e00: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3165. ' $5e10: 8c c3 0c cc 0f 0c cc cf cc 07 c3 03 0c cc cf cc 
  3166. ' $5e20: c3 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3167. ' $5e30: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3168. ' $5e40: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3169. ' $5e50: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3170. ' $5e60: 8c c3 0c cc 0d 8c cc cc 0c 0c c3 03 0c cc cc 0c 
  3171. ' $5e70: c3 00 00 00 9c e7 39 ce 00 00 e7 39 ce 70 9c e7 
  3172. ' $5e80: 39 ce 00 00 18 c6 31 80 80 00 00 00 4e 73 9c e7 
  3173. ' $5e90: 39 ce a7 39 ce 73 9c e7 00 00 00 00 80 00 00 00 
  3174. ' $5ea0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3175. ' $5eb0: 8f 87 87 87 8c c7 8f 87 8c 07 c1 c7 87 8c c7 8c 
  3176. ' $5ec0: c0 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3177. ' $5ed0: 00 00 00 00 ff ff ff f0 80 00 00 00 40 00 00 00 
  3178. ' $5ee0: 00 00 a0 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3179. ' $5ef0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3180. ' $5f00: 80 00 00 00 00 00 0c 00 00 00 00 00 00 00 00 00 
  3181. ' $5f10: 00 00 30 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3182. ' $5f20: 00 00 00 00 ff ff ff f0 80 00 00 00 40 00 00 00 
  3183. ' $5f30: 00 00 a0 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3184. ' $5f40: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3185. ' $5f50: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3186. ' $5f60: 00 00 78 00 90 00 00 02 00 00 80 00 00 10 90 00 
  3187. ' $5f70: 00 02 00 00 7f ff ff e0 80 00 00 00 00 00 00 00 
  3188. ' $5f80: 00 02 80 00 00 00 00 01 00 00 00 00 83 ff ff ff 
  3189. ' $5f90: c0 00 00 00 00 00 80 00 00 00 00 00 ff ff ff f0 
  3190. ' $5fa0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3191. ' $5fb0: 00 00 7e 00 90 00 7c 02 00 00 80 7c 00 10 90 0f 
  3192. ' $5fc0: 80 02 00 00 7f 83 ff e0 80 00 00 00 00 00 00 00 
  3193. ' $5fd0: 00 02 80 00 00 00 00 01 00 00 00 00 84 00 00 00 
  3194. ' $5fe0: 20 00 00 00 00 00 80 00 00 00 00 01 00 00 00 08 
  3195. ' $5ff0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3196. ' $6000: 00 00 de 00 90 01 fe 02 00 00 80 ff 00 10 90 1f 
  3197. ' $6010: e0 02 00 00 7f 00 ff e0 80 00 00 00 40 03 e0 00 
  3198. ' $6020: 00 02 a0 01 f0 00 00 01 00 00 00 00 88 00 aa aa 
  3199. ' $6030: a0 00 00 00 00 00 80 00 00 00 00 02 00 2a aa a8 
  3200. ' $6040: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3201. ' $6050: 00 01 8f 80 80 01 ff 00 00 00 01 ff 00 00 80 3f 
  3202. ' $6060: e0 00 00 00 fe 00 ff f0 80 00 00 00 5f f6 20 00 
  3203. ' $6070: f8 00 af fb 10 00 7c 00 00 00 00 00 88 00 00 00 
  3204. ' $6080: 20 00 00 00 00 00 80 00 00 00 00 02 00 00 00 08 
  3205. ' $6090: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3206. ' $60a0: 00 01 07 c0 80 03 ff 80 00 00 03 ff 80 00 80 7f 
  3207. ' $60b0: f0 00 00 00 fc 00 7f f0 80 00 00 00 7e fc e0 03 
  3208. ' $60c0: fc 00 bf 7e 70 01 fe 00 00 00 00 00 88 00 80 00 
  3209. ' $60d0: 20 00 00 00 00 00 80 00 00 00 00 02 00 20 00 08 
  3210. ' $60e0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3211. ' $60f0: 00 03 01 c0 90 03 ff 82 00 00 83 ff 80 10 90 7f 
  3212. ' $6100: f0 02 00 00 7c 00 7f e0 f9 ce 73 80 31 c1 00 03 
  3213. ' $6110: fe 02 98 e0 80 01 ff 01 00 f3 9c e7 88 00 00 00 
  3214. ' $6120: 20 00 0f 39 ce 70 81 e7 39 ce 00 02 00 00 00 08 
  3215. ' $6130: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3216. ' $6140: 00 06 01 e0 9c 0f ff 82 00 00 83 ff e0 70 90 7f 
  3217. ' $6150: fc 0e 00 00 7c 00 1f 80 c0 00 00 00 1f 9c 80 07 
  3218. ' $6160: ff 02 8f ce 40 03 ff 81 00 80 00 00 80 00 80 1f 
  3219. ' $6170: 20 00 08 00 00 00 81 00 00 00 00 00 00 20 07 c8 
  3220. ' $6180: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3221. ' $6190: 00 04 00 f0 9c 3f ff 82 00 00 83 ff f8 70 90 7f 
  3222. ' $61a0: ff 0e 00 00 7c 00 07 80 c0 00 00 80 43 01 80 07 
  3223. ' $61b0: ff 02 a1 80 c0 03 ff 81 00 80 00 01 8f fc 00 11 
  3224. ' $61c0: 20 00 08 00 00 10 81 00 00 02 00 03 ff 00 04 48 
  3225. ' $61d0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3226. ' $61e0: 00 0c 00 60 9e f8 3f 00 00 00 01 f8 3e e0 80 3f 
  3227. ' $61f0: 07 dc 00 00 fe 07 c1 10 80 00 00 80 40 87 b8 1f 
  3228. ' $6200: ff 00 a0 43 dc 0f ff 80 00 00 00 01 88 02 80 11 
  3229. ' $6210: 20 00 00 00 00 10 80 00 00 02 00 02 00 a0 04 48 
  3230. ' $6220: 80 00 0f 3c f3 cf 3c f0 00 00 80 00 00 00 00 00 
  3231. ' $6230: 00 18 00 c0 9f fb 98 00 00 00 00 33 bf e0 80 06 
  3232. ' $6240: 77 fc 00 00 ff cc 40 10 80 c0 00 80 40 f7 b8 7f 
  3233. ' $6250: ff 00 a0 7b dc 3f ff 80 00 01 80 01 8b fa 00 11 
  3234. ' $6260: 20 00 00 18 00 10 80 03 00 02 00 02 fe 80 04 48 
  3235. ' $6270: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3236. ' $6280: 00 30 01 80 9c e7 1d f2 00 00 9f 71 ce 70 93 ee 
  3237. ' $6290: 39 ce 00 00 60 8e 31 80 ff 40 f0 00 00 0f fd f0 
  3238. ' $62a0: 7e 02 80 07 fe f8 3f 01 00 fe 81 e0 8a 0a 80 0e 
  3239. ' $62b0: 20 00 0f e8 1e 00 81 fd 03 c0 00 02 82 a0 03 88 
  3240. ' $62c0: 80 00 20 00 00 00 00 40 00 00 80 00 00 00 00 00 
  3241. ' $62d0: 00 62 01 80 90 06 7f fa 00 00 bf fc c0 10 97 ff 
  3242. ' $62e0: 98 02 00 00 40 03 3f e0 df 01 f8 00 40 01 ff f7 
  3243. ' $62f0: 30 02 a0 00 ff fb 98 01 00 be 03 f0 8a 0a 00 00 
  3244. ' $6300: 20 00 0b e0 3f 00 81 7c 07 e0 00 02 82 80 00 08 
  3245. ' $6310: 80 00 40 00 00 00 00 80 00 00 80 00 00 00 00 00 
  3246. ' $6320: 00 c3 03 00 90 00 1f fe 00 00 ff f0 00 10 9f fe 
  3247. ' $6330: 00 02 00 00 00 0f ff e0 c1 a3 f8 80 40 00 f9 ce 
  3248. ' $6340: 3b e2 a0 00 7c e7 1d f1 00 83 47 f1 8b fa 80 11 
  3249. ' $6350: 20 00 08 34 7f 10 81 06 8f e2 00 02 fe a0 04 48 
  3250. ' $6360: 80 00 80 00 00 00 01 00 00 00 80 00 00 00 00 00 
  3251. ' $6370: 01 8e 86 00 90 00 6f fc 01 80 7f ec 00 00 8f fd 
  3252. ' $6380: 80 00 01 80 80 13 ff f0 81 fe 70 8c 40 00 60 0c 
  3253. ' $6390: ff f0 a0 00 30 06 7f f8 18 03 fc e1 88 02 00 1f 
  3254. ' $63a0: 20 60 00 3f ce 10 80 07 f9 c2 01 82 00 80 07 c8 
  3255. ' $63b0: 80 00 00 00 00 00 00 00 7c 00 80 00 00 00 00 00 
  3256. ' $63c0: 03 04 4c 00 98 00 e7 fc 01 c0 7f ce 00 20 8f f9 
  3257. ' $63d0: c0 04 01 c0 80 31 ff d0 80 6d 2c 8e 00 00 00 00 
  3258. ' $63e0: 3f f8 80 00 00 00 1f fc 1c 00 da 59 88 02 80 11 
  3259. ' $63f0: 20 70 00 0d a5 90 80 01 b4 b2 01 c2 00 a0 04 48 
  3260. ' $6400: 80 02 00 0f 80 00 04 00 fe 00 80 00 00 00 00 00 
  3261. ' $6410: 06 02 18 00 96 03 cf fe 0f 60 ff e7 80 d0 9f fc 
  3262. ' $6420: f0 1a 0f 60 00 18 7f 20 c0 00 3e 7b 00 00 20 00 
  3263. ' $6430: df fa 80 00 10 00 6f fd f6 80 00 7c 88 02 00 00 
  3264. ' $6440: 23 d8 08 00 07 c0 81 00 00 f8 0f 62 00 80 00 08 
  3265. ' $6450: 80 04 00 1f f0 00 08 01 83 00 80 00 3c f3 cf 3c 
  3266. ' $6460: fc 41 30 00 93 ff 9f fa 08 30 bf f3 ff 90 97 fe 
  3267. ' $6470: 7f f2 08 30 40 0c 00 60 c0 20 de c1 c0 00 30 01 
  3268. ' $6480: cf fa a0 00 18 00 e7 fd 83 80 41 bd 88 02 80 12 
  3269. ' $6490: 22 0c 08 04 1b d0 81 00 83 7a 08 32 00 a0 04 88 
  3270. ' $64a0: 80 08 00 07 fe 00 10 03 01 80 80 00 00 00 00 00 
  3271. ' $64b0: 18 20 60 00 91 ff b3 f2 08 30 9f 9b ff 10 93 f3 
  3272. ' $64c0: 7f e2 08 30 60 64 00 e0 c0 1f be c1 c0 00 0c 07 
  3273. ' $64d0: 9f fa a0 00 06 03 cf fd 83 80 3f 7d 88 02 00 15 
  3274. ' $64e0: 22 0c 08 03 f7 d0 81 00 7e fa 08 32 00 80 05 48 
  3275. ' $64f0: 80 00 00 01 ff e0 00 03 01 80 80 00 80 00 00 00 
  3276. ' $6500: 30 10 c0 00 80 ff f1 c0 0f 60 07 1f fe 00 80 e3 
  3277. ' $6510: ff c0 0f 60 f8 e0 01 f0 80 0f c8 fb 40 00 07 ff 
  3278. ' $6520: 3f f0 a0 00 03 ff 9f f8 f6 00 1f 91 88 02 80 15 
  3279. ' $6530: 23 d8 00 01 f9 10 80 00 3f 22 0f 62 00 a0 05 48 
  3280. ' $6540: 80 20 00 00 3f f8 03 ff 83 00 80 01 00 00 00 00 
  3281. ' $6550: 62 09 80 00 91 ff fe 00 01 c0 00 ff ff 10 80 1f 
  3282. ' $6560: ff e2 01 c0 ff 00 00 e0 80 1f f0 0e 00 00 03 ff 
  3283. ' $6570: 67 e0 80 00 01 ff b3 f0 1c 00 3f e0 88 02 00 15 
  3284. ' $6580: 20 70 00 03 fe 00 80 00 7f c0 01 c2 00 80 05 48 
  3285. ' $6590: 80 40 00 00 0f ff 1f ff ff 00 80 02 00 00 00 00 
  3286. ' $65a0: c4 03 00 00 93 ff ff 02 01 80 81 ff ff 90 90 3f 
  3287. ' $65b0: ff f2 01 80 7e 00 00 60 c0 1f f8 8c 00 00 01 ff 
  3288. ' $65c0: e3 82 80 00 00 ff f1 c1 18 80 3f f1 88 02 80 09 
  3289. ' $65d0: 20 60 08 03 ff 10 81 00 7f e2 01 82 00 a0 02 48 
  3290. ' $65e0: 80 80 00 00 01 ff ff c0 3c 00 80 00 00 00 00 01 
  3291. ' $65f0: 89 06 00 00 93 ff 87 02 00 00 81 c3 ff 90 90 38 
  3292. ' $6600: 7f f2 00 00 7e 3c 00 60 c0 3f 60 80 40 00 03 ff 
  3293. ' $6610: fc 02 a0 00 01 ff fe 01 00 80 7e c1 88 02 00 00 
  3294. ' $6620: 20 00 08 07 ec 10 81 00 fd 82 00 02 00 80 00 08 
  3295. ' $6630: 80 00 00 00 00 7f ff 00 00 00 80 08 00 00 00 03 
  3296. ' $6640: 06 4c 00 00 87 ff ff 82 00 00 83 ff ff c0 90 7f 
  3297. ' $6650: ff f8 00 00 7c 00 00 30 c0 30 25 80 40 00 07 ff 
  3298. ' $6660: fe 02 a0 00 03 ff ff 01 00 80 60 4b 88 02 80 1f 
  3299. ' $6670: 20 00 08 06 04 b0 81 00 c0 96 00 02 00 a0 07 c8 
  3300. ' $6680: 81 e7 9e 79 e0 0f ff 00 00 00 80 10 00 00 00 06 
  3301. ' $6690: 02 98 00 00 8f ff ac e0 00 00 0e 6b ff e0 81 cd 
  3302. ' $66a0: 7f fc 00 00 f1 94 00 10 80 20 74 00 40 00 07 ff 
  3303. ' $66b0: 0e 00 a0 00 03 ff 87 00 00 00 40 e8 8f fc 00 04 
  3304. ' $66c0: 20 00 00 04 0e 80 80 00 81 d0 00 03 ff 00 01 08 
  3305. ' $66d0: 80 00 00 00 00 3f ff 00 00 00 80 20 00 00 00 0c 
  3306. ' $66e0: 01 30 00 00 9f fe 68 52 00 00 94 2c ff f0 92 85 
  3307. ' $66f0: 9f fe 00 00 6b d3 00 00 80 0c 00 00 00 00 0f ff 
  3308. ' $6700: ff 00 80 00 07 ff ff 80 00 00 18 00 88 00 80 0a 
  3309. ' $6710: 20 00 00 01 80 00 80 00 30 00 00 02 00 20 02 88 
  3310. ' $6720: 80 00 00 00 01 ff ff 80 78 00 80 00 00 00 00 18 
  3311. ' $6730: 80 60 00 00 9a 60 30 9e 00 00 f2 18 0c b0 9e 43 
  3312. ' $6740: 01 96 00 00 0d e7 f3 40 c0 00 00 80 00 00 1f ff 
  3313. ' $6750: 59 c2 80 00 0f ff ac e1 00 80 00 01 88 00 00 11 
  3314. ' $6760: 20 00 08 00 00 10 81 00 00 02 00 02 00 00 04 48 
  3315. ' $6770: 80 00 00 00 07 ff 9f ff fc 00 80 80 00 00 00 30 
  3316. ' $6780: 44 c0 00 00 9e 40 18 32 00 00 98 30 04 f0 93 06 
  3317. ' $6790: 00 9e 00 00 67 cf fb 00 c0 00 00 80 40 00 1f fc 
  3318. ' $67a0: d0 a2 a0 00 0f fe 68 51 00 80 00 01 88 00 80 00 
  3319. ' $67b0: 20 00 08 00 00 10 81 00 00 02 00 02 00 20 00 08 
  3320. ' $67c0: 80 00 00 00 3f fe 07 ff 86 00 81 00 00 00 00 18 
  3321. ' $67d0: 29 80 00 00 8e 40 38 7e 00 00 fc 38 04 e0 9f 87 
  3322. ' $67e0: 00 9c 00 00 03 c7 fb 10 ce 73 9c 80 40 00 14 c0 
  3323. ' $67f0: 61 3e a0 00 0a 60 30 9f 00 9c e7 39 88 00 00 00 
  3324. ' $6800: 20 00 09 ce 73 90 81 39 ce 72 00 02 00 00 00 08 
  3325. ' $6810: 80 00 00 00 ff e0 00 03 03 00 82 00 00 00 00 1c 
  3326. ' $6820: 13 00 00 00 8c 50 2b 60 00 00 0d a8 14 60 81 b5 
  3327. ' $6830: 02 8c 00 00 f2 57 eb 90 80 00 00 00 40 00 1c 80 
  3328. ' $6840: 30 64 a0 00 0e 40 18 32 00 00 00 00 88 00 aa aa 
  3329. ' $6850: a0 00 00 00 00 00 80 00 00 00 00 02 00 2a aa a8 
  3330. ' $6860: 80 00 00 07 ff 80 00 03 03 00 80 00 00 00 00 3e 
  3331. ' $6870: 06 00 00 00 9e 00 72 a2 00 00 8a 9c 00 f0 91 53 
  3332. ' $6880: 80 1e 00 00 75 63 ff 00 80 00 00 00 00 00 1c 80 
  3333. ' $6890: 70 fe 80 00 0e 40 38 7f 00 00 00 00 88 00 00 00 
  3334. ' $68a0: 20 00 00 00 00 00 80 00 00 00 00 02 00 00 00 08 
  3335. ' $68b0: 80 00 00 0f fc 00 00 01 87 00 87 9e 79 e7 9e 3b 
  3336. ' $68c0: 0c 00 00 00 90 f0 00 02 00 00 80 00 1e 10 90 00 
  3337. ' $68d0: 03 c2 00 00 7f ff e1 e0 80 00 00 00 00 00 18 a0 
  3338. ' $68e0: 56 c2 80 00 0c 50 2b 61 00 00 00 00 87 ff ff ff 
  3339. ' $68f0: c0 00 00 00 00 00 80 00 00 00 00 01 ff ff ff f0 
  3340. ' $6900: 80 00 00 07 c0 00 00 00 fe 00 80 00 00 00 00 79 
  3341. ' $6910: 18 00 00 00 90 00 00 02 00 00 80 00 00 10 90 00 
  3342. ' $6920: 00 02 00 00 7f ff ff e0 80 00 00 00 40 00 1c 00 
  3343. ' $6930: e5 42 a0 00 0e 00 72 a1 00 00 00 00 80 00 00 00 
  3344. ' $6940: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3345. ' $6950: 80 00 00 00 00 00 00 00 7c 00 80 00 01 ff f8 ff 
  3346. ' $6960: f0 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3347. ' $6970: 00 00 00 00 ff ff ff f0 80 00 00 00 40 00 01 e0 
  3348. ' $6980: 00 00 a0 00 00 f0 00 00 00 00 00 00 80 00 00 00 
  3349. ' $6990: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3350. ' $69a0: 80 00 00 00 00 00 00 00 00 00 80 00 00 3f f1 fe 
  3351. ' $69b0: 60 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3352. ' $69c0: 00 00 00 00 ff ff ff f0 80 00 00 00 40 00 00 00 
  3353. ' $69d0: 00 02 a0 00 00 00 00 01 00 00 00 00 80 00 00 00 
  3354. ' $69e0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3355. ' $69f0: 80 00 00 00 00 00 00 00 00 00 80 00 00 03 f9 fc 
  3356. ' $6a00: 00 00 00 00 9c e7 39 ce 00 00 e7 39 ce 70 9c e7 
  3357. ' $6a10: 39 ce 00 00 18 c6 31 80 80 00 00 00 00 00 00 00 
  3358. ' $6a20: 00 02 80 00 00 00 00 01 00 00 00 00 80 00 00 00 
  3359. ' $6a30: 00 00 00 00 7c 60 80 00 00 00 00 00 00 00 00 00 
  3360. ' $6a40: 80 00 00 00 00 00 00 01 f0 60 80 00 00 00 00 f8 
  3361. ' $6a50: 00 01 f1 f8 80 00 00 00 00 00 00 00 00 00 80 00 
  3362. ' $6a60: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 03 
  3363. ' $6a70: e1 f2 80 00 00 00 00 01 00 01 f1 98 80 00 00 00 
  3364. ' $6a80: 00 00 00 00 66 60 80 00 00 00 00 00 00 07 c3 c0 
  3365. ' $6a90: 80 00 00 00 00 00 00 01 98 f0 80 00 00 00 00 70 
  3366. ' $6aa0: 00 01 99 80 80 00 20 00 00 00 00 00 f9 8c 88 00 
  3367. ' $6ab0: 00 00 20 00 00 00 f8 78 80 01 40 00 73 9c e7 3b 
  3368. ' $6ac0: 33 02 b9 ce 73 9c e7 39 00 01 99 b0 80 00 00 00 
  3369. ' $6ad0: 00 00 00 00 66 60 80 00 00 00 00 00 00 06 66 60 
  3370. ' $6ae0: 80 00 00 00 00 00 00 01 99 98 80 00 00 00 00 00 
  3371. ' $6af0: 00 01 99 80 80 00 00 00 00 60 00 00 cd dc 80 00 
  3372. ' $6b00: 00 02 00 00 00 00 cc 30 80 00 06 00 00 00 00 03 
  3373. ' $6b10: 33 00 80 00 01 00 00 00 00 01 99 e0 80 00 00 00 
  3374. ' $6b20: 00 00 00 00 7c 60 80 00 02 00 00 00 00 06 66 00 
  3375. ' $6b30: 80 00 00 00 00 00 00 01 f1 98 80 00 00 00 00 00 
  3376. ' $6b40: 00 01 f1 f0 83 bc 61 c7 9c 23 c0 00 cd fc 99 c8 
  3377. ' $6b50: 9c e7 63 9c 73 80 cc 30 9e 71 c9 1c 70 00 00 03 
  3378. ' $6b60: e3 70 90 30 00 00 00 00 00 01 f1 c0 8c 00 10 00 
  3379. ' $6b70: 00 00 00 00 66 60 80 00 00 02 00 00 00 07 c3 c0 
  3380. ' $6b80: 80 00 00 00 00 00 00 01 99 f8 80 00 00 00 00 00 
  3381. ' $6b90: 00 01 99 80 86 22 23 e8 be 22 20 00 f9 ac 89 28 
  3382. ' $6ba0: be 92 27 d2 fa 40 f8 30 a2 4a 2e 3e 48 00 00 03 
  3383. ' $6bb0: 33 30 92 10 e3 1e 38 e0 00 01 99 e0 84 38 f3 9e 
  3384. ' $6bc0: 00 00 00 00 66 60 87 78 e6 3a c7 39 e0 06 60 60 
  3385. ' $6bd0: 80 00 00 00 00 00 00 01 99 98 80 00 00 00 00 00 
  3386. ' $6be0: 00 01 99 80 81 a2 22 07 a0 22 20 00 cd 8c 89 25 
  3387. ' $6bf0: 20 82 24 10 82 40 cc 30 9e 42 29 20 40 00 00 03 
  3388. ' $6c00: 33 30 9c 11 f1 11 7c 90 00 01 99 b0 84 05 17 d1 
  3389. ' $6c10: 00 00 00 00 7c 7e 8c 45 f2 43 2f a5 10 06 66 60 
  3390. ' $6c20: 80 00 00 00 00 00 00 01 f1 98 80 00 00 00 00 00 
  3391. ' $6c30: 00 01 f1 f8 87 3c 71 c0 9c 72 20 00 cd 8c 9d 22 
  3392. ' $6c40: 1c 81 73 90 72 40 cc 30 82 41 ce 1c 40 00 00 03 
  3393. ' $6c50: e1 f0 92 11 01 11 40 80 00 01 f1 98 84 7d 14 11 
  3394. ' $6c60: 00 00 00 00 00 00 83 45 02 42 28 21 10 07 c3 c0 
  3395. ' $6c70: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3396. ' $6c80: 00 00 00 00 80 20 00 0f 00 00 00 00 f9 8c 80 00 
  3397. ' $6c90: 00 00 00 00 00 00 f8 78 bc 00 08 00 00 00 00 00 
  3398. ' $6ca0: 00 00 91 38 e3 91 38 80 00 00 00 00 8e 3c f3 91 
  3399. ' $6cb0: 00 00 00 00 00 00 8e 78 e7 3a 27 21 10 00 00 00 
  3400. ' $6cc0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3401. ' $6cd0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3402. ' $6ce0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3403. ' $6cf0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3404. ' $6d00: 00 00 00 00 00 00 80 40 00 00 00 00 00 00 00 00 
  3405. ' $6d10: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3406. ' $6d20: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3407. ' $6d30: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3408. ' $6d40: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3409. ' $6d50: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3410. ' $6d60: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3411. ' $6d70: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3412. ' $6d80: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3413. ' $6d90: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3414. ' $6da0: ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 
  3415. ' $6db0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3416. ' $6dc0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3417. ' $6dd0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3418. ' $6de0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3419. ' $6df0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3420. ' $6e00: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3421. ' $6e10: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3422. ' $6e20: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3423. ' $6e30: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3424. ' $6e40: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3425. ' $6e50: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3426. ' $6e60: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3427. ' $6e70: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3428. ' $6e80: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3429. ' $6e90: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3430. ' $6ea0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3431. ' $6eb0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3432. ' $6ec0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3433. ' $6ed0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3434. ' $6ee0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3435. ' $6ef0: 80 00 00 00 00 00 40 00 00 00 80 00 00 40 04 00 
  3436. ' $6f00: 00 00 00 00 80 00 10 00 00 00 00 00 00 00 80 00 
  3437. ' $6f10: 28 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3438. ' $6f20: 00 00 80 00 00 00 04 00 00 00 00 00 80 04 00 00 
  3439. ' $6f30: 00 00 01 00 00 00 80 00 00 02 80 00 01 00 00 00 
  3440. ' $6f40: 80 1f 00 40 00 00 00 00 00 00 80 00 20 00 00 00 
  3441. ' $6f50: 00 00 10 00 87 c0 00 04 00 00 30 00 40 00 80 1f 
  3442. ' $6f60: 00 c3 00 00 01 00 00 00 80 00 7c 00 00 00 00 00 
  3443. ' $6f70: 00 00 83 c0 00 04 00 40 00 01 00 00 83 c0 10 40 
  3444. ' $6f80: 00 00 00 04 00 00 80 0f 00 00 10 00 00 04 00 00 
  3445. ' $6f90: 80 10 24 e3 9e 1c c3 9e 00 00 80 00 20 c7 8c 39 
  3446. ' $6fa0: e3 8e 38 00 80 8e 30 e5 8e 78 43 8e 78 e0 80 10 
  3447. ' $6fb0: 44 41 0a 44 73 8e 38 00 80 00 40 c3 d1 38 e7 80 
  3448. ' $6fc0: 00 00 84 0e 39 e5 8c 48 a3 8f 44 70 84 0c 38 e3 
  3449. ' $6fd0: 8e 44 e3 0e 38 00 80 10 78 e4 56 44 e3 0e 38 00 
  3450. ' $6fe0: 80 1e 18 47 d1 30 44 51 00 00 80 00 20 44 44 7d 
  3451. ' $6ff0: 10 49 10 00 81 1f 11 06 5f 44 f0 49 45 f0 80 1e 
  3452. ' $7000: 44 41 1f 44 c1 1f 24 00 80 00 78 44 51 25 f4 40 
  3453. ' $7010: 00 00 84 c9 05 16 44 71 f4 51 44 c0 84 c4 10 47 
  3454. ' $7020: c9 55 f1 04 7c 00 80 0e 44 94 59 55 f1 04 7c 00 
  3455. ' $7030: 80 10 18 44 11 0c 44 51 00 00 80 00 20 44 44 41 
  3456. ' $7040: 17 c8 10 00 82 10 11 04 50 44 47 c8 45 00 80 10 
  3457. ' $7050: 44 41 15 44 31 10 20 00 80 00 40 43 d1 21 04 40 
  3458. ' $7060: 00 00 84 48 7d 14 44 49 54 51 44 30 84 44 10 44 
  3459. ' $7070: 08 55 01 04 40 00 80 01 44 84 51 55 01 04 40 00 
  3460. ' $7080: 80 1f 24 23 91 38 e3 91 00 00 80 00 3c e4 4e 39 
  3461. ' $7090: 13 c8 08 00 87 ce 38 e4 4e 44 43 c8 78 e0 80 10 
  3462. ' $70a0: 3c e3 91 3c e0 8e 20 00 80 00 40 e0 4f 20 e4 40 
  3463. ' $70b0: 00 00 83 c8 3d e4 4e 45 13 8f 3c e0 83 ce 08 23 
  3464. ' $70c0: 88 6c e3 82 38 00 80 1e 78 83 d1 6c e3 82 38 00 
  3465. ' $70d0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3466. ' $70e0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3467. ' $70f0: 00 00 00 00 00 00 00 00 80 00 00 07 80 00 00 00 
  3468. ' $7100: 00 00 80 00 01 00 00 00 00 00 00 00 80 00 00 00 
  3469. ' $7110: 00 00 00 00 00 00 80 00 40 00 00 00 00 00 00 00 
  3470. ' $7120: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3471. ' $7130: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3472. ' $7140: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3473. ' $7150: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3474. ' $7160: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3475. ' $7170: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3476. ' $7180: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3477. ' $7190: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3478. ' $71a0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3479. ' $71b0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3480. ' $71c0: 80 00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 
  3481. ' $71d0: 00 00 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3482. ' $71e0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3483. ' $71f0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3484. ' $7200: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3485. ' $7210: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3486. ' $7220: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3487. ' $7230: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3488. ' $7240: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3489. ' $7250: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3490. ' $7260: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3491. ' $7270: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3492. ' $7280: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3493. ' $7290: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3494. ' $72a0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3495. ' $72b0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 07 f0 
  3496. ' $72c0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3497. ' $72d0: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3498. ' $72e0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3499. ' $72f0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3500. ' $7300: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3501. ' $7310: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3502. ' $7320: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3503. ' $7330: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3504. ' $7340: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3505. ' $7350: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3506. ' $7360: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3507. ' $7370: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3508. ' $7380: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3509. ' $7390: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3510. ' $73a0: 80 00 00 40 00 00 00 00 00 00 80 00 08 00 00 00 
  3511. ' $73b0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3512. ' $73c0: 00 00 00 00 00 00 00 00 80 00 00 00 0a 00 00 00 
  3513. ' $73d0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3514. ' $73e0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3515. ' $73f0: 80 10 00 00 00 20 00 40 00 00 80 00 08 00 00 00 
  3516. ' $7400: 00 08 00 00 80 00 00 00 1f 00 00 00 00 00 80 00 
  3517. ' $7410: 00 00 11 00 00 00 00 00 80 00 00 01 80 30 c0 00 
  3518. ' $7420: 00 00 80 00 00 00 20 00 00 00 00 00 80 00 00 00 
  3519. ' $7430: 0a 00 00 00 00 00 80 00 00 00 1f 00 00 00 00 00 
  3520. ' $7440: 80 1e 38 c2 80 20 e3 ce 78 00 80 00 08 00 00 00 
  3521. ' $7450: 00 08 00 00 80 00 00 00 02 00 00 00 00 00 80 00 
  3522. ' $7460: 00 00 11 00 00 00 00 00 80 0e 44 72 11 10 43 9e 
  3523. ' $7470: 00 00 80 00 00 00 70 f0 00 00 00 00 80 00 00 00 
  3524. ' $7480: 1f 00 00 00 00 00 80 00 00 00 10 00 00 00 00 00 
  3525. ' $7490: 80 11 7c 47 c0 20 14 5f 44 00 80 00 08 00 00 00 
  3526. ' $74a0: 00 08 00 00 80 00 00 00 04 00 00 00 00 00 80 00 
  3527. ' $74b0: 00 00 0a 00 00 00 00 00 80 01 44 c7 91 10 47 d1 
  3528. ' $74c0: 00 00 80 00 00 00 f9 00 00 00 00 00 80 00 00 00 
  3529. ' $74d0: 0a 00 00 00 00 00 80 00 00 00 1e 00 00 00 00 00 
  3530. ' $74e0: 80 11 40 45 40 21 f4 50 44 00 80 00 08 00 00 00 
  3531. ' $74f0: 00 08 00 00 80 00 00 00 08 00 00 00 00 00 80 00 
  3532. ' $7500: 00 00 04 00 00 00 00 00 80 1f 44 32 11 10 44 11 
  3533. ' $7510: 00 00 80 00 00 00 21 30 00 00 00 00 80 00 00 00 
  3534. ' $7520: 1f 00 00 00 00 00 80 00 00 00 10 00 00 00 00 00 
  3535. ' $7530: 80 1e 38 e4 40 3c f3 ce 44 00 80 00 08 00 00 00 
  3536. ' $7540: 00 08 00 00 80 00 00 00 1f 00 00 00 00 00 80 00 
  3537. ' $7550: 00 00 04 00 00 00 00 00 80 0f 3c e2 0f 38 e3 91 
  3538. ' $7560: 00 00 80 00 00 00 21 10 00 00 00 00 80 00 00 00 
  3539. ' $7570: 0a 00 00 00 00 00 80 00 00 00 1f 00 00 00 00 00 
  3540. ' $7580: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3541. ' $7590: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3542. ' $75a0: 00 00 04 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3543. ' $75b0: 00 00 80 00 00 00 20 f0 00 00 00 00 80 00 00 00 
  3544. ' $75c0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3545. ' $75d0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3546. ' $75e0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3547. ' $75f0: 00 00 04 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3548. ' $7600: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3549. ' $7610: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3550. ' $7620: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3551. ' $7630: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3552. ' $7640: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3553. ' $7650: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3554. ' $7660: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3555. ' $7670: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3556. ' $7680: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 80 00 
  3557. ' $7690: 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 
  3558. ' $76a0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3559. ' $76b0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3560. ' $76c0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3561. ' $76d0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 ff ff 
  3562. ' $76e0: ff ff ff ff ff ff ff ff 80 00 00 00 00 00 00 00 
  3563. ' $76f0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3564. ' $7700: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3565. ' $7710: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3566. ' $7720: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 d5 55 
  3567. ' $7730: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3568. ' $7740: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3569. ' $7750: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3570. ' $7760: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3571. ' $7770: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 aa aa 
  3572. ' $7780: aa aa aa aa aa aa aa aa 80 00 00 00 00 00 00 00 
  3573. ' $7790: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3574. ' $77a0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3575. ' $77b0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3576. ' $77c0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 d5 55 
  3577. ' $77d0: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3578. ' $77e0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3579. ' $77f0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3580. ' $7800: 80 00 00 1f 0f 0f 00 00 00 00 80 00 08 00 00 00 
  3581. ' $7810: 00 08 00 00 80 00 00 18 00 00 00 00 00 00 aa aa 
  3582. ' $7820: aa aa aa aa aa aa aa aa 80 00 00 00 06 00 00 00 
  3583. ' $7830: 00 00 80 00 00 00 06 00 00 00 00 00 80 00 00 00 
  3584. ' $7840: 00 00 00 00 00 00 80 00 00 00 06 0f 00 00 00 00 
  3585. ' $7850: 80 00 00 19 86 19 80 00 00 00 80 00 08 00 00 00 
  3586. ' $7860: 00 08 00 00 80 00 00 18 00 00 00 00 00 00 d5 55 
  3587. ' $7870: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3588. ' $7880: 00 00 80 00 00 00 0e 00 00 00 00 00 80 00 00 00 
  3589. ' $7890: 00 00 00 00 00 00 80 00 00 00 0e 19 80 00 00 00 
  3590. ' $78a0: 80 00 00 19 86 18 00 00 00 00 80 00 08 00 00 00 
  3591. ' $78b0: 00 08 00 00 80 0f 8f 1f 31 8f 1f 1f 80 00 aa aa 
  3592. ' $78c0: aa aa aa aa aa aa aa aa 80 00 1f 0f 0e 1f 00 00 
  3593. ' $78d0: 00 00 80 00 00 00 06 00 00 00 00 00 80 00 00 0f 
  3594. ' $78e0: 19 8f 80 00 00 00 80 00 00 00 06 1b 80 00 00 00 
  3595. ' $78f0: 80 00 00 1f 06 18 00 00 00 00 80 00 08 00 00 00 
  3596. ' $7900: 00 08 00 00 80 18 18 19 b1 81 99 83 00 00 d5 55 
  3597. ' $7910: 55 55 55 55 55 55 55 55 80 00 19 99 86 19 80 00 
  3598. ' $7920: 00 00 80 00 00 00 06 00 00 00 00 00 80 00 00 01 
  3599. ' $7930: 99 98 00 00 00 00 80 00 00 00 06 1d 80 00 00 00 
  3600. ' $7940: 80 00 00 18 06 18 00 00 00 00 80 00 08 00 00 00 
  3601. ' $7950: 00 08 00 00 80 0f 18 19 b5 8f 98 06 00 00 aa aa 
  3602. ' $7960: aa aa aa aa aa aa aa aa 80 00 19 9f 86 19 80 00 
  3603. ' $7970: 00 00 80 00 00 00 06 00 00 00 00 00 80 00 00 0f 
  3604. ' $7980: 99 8f 00 00 00 00 80 00 00 00 06 19 80 00 00 00 
  3605. ' $7990: 80 00 00 18 06 19 80 00 00 00 80 00 08 00 00 00 
  3606. ' $79a0: 00 08 00 00 80 01 98 19 9f 19 98 0c 00 00 d5 55 
  3607. ' $79b0: 55 55 55 55 55 55 55 55 80 00 19 98 06 19 80 00 
  3608. ' $79c0: 00 00 80 00 00 00 06 00 00 00 00 00 80 00 00 19 
  3609. ' $79d0: 99 81 80 00 00 00 80 00 00 00 06 19 80 00 00 00 
  3610. ' $79e0: 80 00 00 18 0f 0f 00 00 00 00 80 00 08 00 00 00 
  3611. ' $79f0: 00 08 00 00 80 1f 0f 19 9b 0f 98 1f 80 00 aa aa 
  3612. ' $7a00: aa aa aa aa aa aa aa aa 80 00 19 8f 0f 19 80 00 
  3613. ' $7a10: 00 00 80 00 00 00 1f 80 00 00 00 00 80 00 00 0f 
  3614. ' $7a20: 8f 9f 00 00 00 00 80 00 00 00 1f 8f 00 00 00 00 
  3615. ' $7a30: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3616. ' $7a40: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 d5 55 
  3617. ' $7a50: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3618. ' $7a60: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3619. ' $7a70: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3620. ' $7a80: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3621. ' $7a90: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 aa aa 
  3622. ' $7aa0: aa aa aa aa aa aa aa aa 80 00 00 00 00 00 00 00 
  3623. ' $7ab0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3624. ' $7ac0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3625. ' $7ad0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3626. ' $7ae0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 d5 55 
  3627. ' $7af0: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3628. ' $7b00: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3629. ' $7b10: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3630. ' $7b20: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3631. ' $7b30: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 aa aa 
  3632. ' $7b40: aa aa aa aa aa aa aa aa 80 00 00 00 00 00 00 00 
  3633. ' $7b50: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3634. ' $7b60: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3635. ' $7b70: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3636. ' $7b80: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 d5 55 
  3637. ' $7b90: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3638. ' $7ba0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3639. ' $7bb0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3640. ' $7bc0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3641. ' $7bd0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 aa aa 
  3642. ' $7be0: aa aa aa aa aa aa aa aa 80 00 00 00 00 00 00 00 
  3643. ' $7bf0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3644. ' $7c00: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3645. ' $7c10: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3646. ' $7c20: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 d5 55 
  3647. ' $7c30: 55 55 55 55 55 55 55 55 80 00 00 00 00 00 00 00 
  3648. ' $7c40: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3649. ' $7c50: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3650. ' $7c60: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3651. ' $7c70: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 aa aa 
  3652. ' $7c80: aa aa aa aa aa aa aa aa 80 00 00 00 00 00 00 00 
  3653. ' $7c90: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3654. ' $7ca0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3655. ' $7cb0: 80 00 00 00 00 00 00 00 00 00 80 00 08 00 00 00 
  3656. ' $7cc0: 00 08 00 00 80 00 00 00 00 00 00 00 00 00 ff ff 
  3657. ' $7cd0: ff ff ff ff ff ff ff ff 80 00 00 00 00 00 00 00 
  3658. ' $7ce0: 00 00 80 00 00 00 00 00 00 00 00 00 80 00 00 00 
  3659. ' $7cf0: 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00 00 
  3660. ' 32000  Bytes.
  3661.   INLINE titel%,32000
  3662.   x%=XBIOS(2)
  3663.   BMOVE titel%,x%,32000
  3664.   DEFTEXT 1,0,0,4
  3665.   TEXT 400,15,"Version "+version$
  3666.   TEXT 400,25,"vom"
  3667.   TEXT 400,35,datum$
  3668.   DEFTEXT 1,0,0,6
  3669.   TEXT 500,25,"Druckeranpassung"
  3670.   IF drucker%=1
  3671.     TEXT 500,35,"für 24-Nadler"  ! NEC P2200
  3672.   ELSE
  3673.     TEXT 500,35,"für 9-Nadler"   !Panasonic KX-P1092
  3674.   ENDIF
  3675.   '
  3676.   SGET menue$
  3677. RETURN
  3678. PROCEDURE mikroskop
  3679.   LOCAL x%,y%,k%
  3680.   teilbild$=""
  3681.   ausschnitt$=""
  3682.   DEFLINE 1,1,0,0
  3683.   DEFMOUSE 0
  3684.   GOSUB lupe_einrichten
  3685.   HIDEM
  3686.   REPEAT                      ! Ausschnitt auf dem großen Bild bestimmen
  3687.     MOUSE x%,y%,k%
  3688.     IF x%>600
  3689.       x%=600
  3690.     ENDIF
  3691.     IF y%>360
  3692.       y%=360
  3693.     ENDIF
  3694.     IF MOUSEK=0
  3695.       GRAPHMODE 3
  3696.       BOX x%,y%,x%+39,y%+39
  3697.       PAUSE 2
  3698.       BOX x%,y%,x%+39,y%+39
  3699.     ENDIF
  3700.   UNTIL k%
  3701.   WHILE MOUSEK
  3702.   WEND
  3703.   x1%=640                     ! Position außerhalb des Bildschirms für die
  3704.   y1%=0                       ! Markierung des ersten Ausschnittes
  3705.   IF k%=1
  3706.     SGET undo$
  3707.     teilbild%=x%-140          ! x-Position des Teilbildes (halbe Bildgröße)
  3708.     x%=140
  3709.     IF teilbild%<0
  3710.       x%=140+teilbild%
  3711.       teilbild%=0
  3712.     ENDIF
  3713.     IF teilbild%>320
  3714.       x%=x%+teilbild%-320
  3715.       teilbild%=320
  3716.     ENDIF
  3717.     '
  3718.     GET teilbild%,0,teilbild%+319,399,teilbild$      ! Teilbild grapschen
  3719.     CLS
  3720.     PUT 0,0,teilbild$                                ! links an den Rand setzen
  3721.     GRAPHMODE 1
  3722.     SETMOUSE 480,160   ! Mauspfeil setzen (geht nur ab Version 3.0)
  3723.     DO
  3724.       '
  3725.       ' kleinen Ausschnitt einfangen
  3726.       '
  3727.       IF k%=1 AND x%<=280
  3728.         GRAPHMODE 3
  3729.         BOX x1%-1,y1%-1,x1%+40,y1%+40         ! alte Markierung löschen
  3730.         GET x%,y%,x%+40,y%+39,ausschnitt$     ! Ausschnitt grapschen
  3731.         '
  3732.         lupe%=VARPTR(lupe$)
  3733.         VOID C:lupe%(L:VARPTR(ausschnitt$)+6,40,39,L:XBIOS(3)+40)
  3734.         '
  3735.         BOX x%-1,y%-1,x%+40,y%+40             ! neuen Ausschnitt markieren
  3736.         x1%=x%
  3737.         y1%=y%
  3738.         DEFLINE 1,3,0,0
  3739.         COLOR 1
  3740.         GRAPHMODE 1
  3741.         BOX 322,322,638,398
  3742.         PRINT AT(50,23);"zurück zum ganzen Bild"
  3743.         DEFLINE 1,1,0,0
  3744.       ENDIF
  3745.       '
  3746.       WHILE MOUSEX>319 AND ausschnitt$>""
  3747.         GRAPHMODE 1
  3748.         SHOWM
  3749.         MOUSE a%,b%,k%
  3750.         IF b%<320
  3751.           a1%=INT((a%-320)/8)      ! Positionen der Pixel im Ausschnitt
  3752.           b1%=INT(b%/8)
  3753.           a2%=INT(a%/8)*8+1        ! Positionen der vergrößerten Pixel
  3754.           b2%=INT(b%/8)*8
  3755.           PRINT AT(74,24);a1%'b1%';! Anzeige der Koordinaten unten rechts
  3756.           IF k%=1
  3757.             COLOR 1
  3758.             DEFFILL 1,2,8
  3759.             PBOX a2%,b2%,a2%+6,b2%+6 ! vergrößertes Pixel
  3760.             DRAW x1%+a1%,y1%+b1%     ! Originalpixel setzen
  3761.           ENDIF
  3762.           IF k%=2
  3763.             COLOR 0
  3764.             DEFFILL 0,2,8
  3765.             PBOX a2%,b2%,a2%+6,b2%+6
  3766.             DRAW x1%+a1%,y1%+b1%
  3767.           ENDIF
  3768.         ENDIF
  3769.         EXIT IF b%>320
  3770.       WEND
  3771.       EXIT IF k% AND a%>320 AND b%>330
  3772.       REPEAT
  3773.         MOUSE x%,y%,k%
  3774.         IF x%<320
  3775.           HIDEM
  3776.           IF x%>280
  3777.             x%=280
  3778.           ENDIF
  3779.           IF y%>360
  3780.             y%=360
  3781.           ENDIF
  3782.           IF MOUSEK=0
  3783.             GRAPHMODE 3
  3784.             BOX x%,y%,x%+39,y%+39
  3785.             PAUSE 2
  3786.             BOX x%,y%,x%+39,y%+39
  3787.           ENDIF
  3788.         ENDIF
  3789.       UNTIL k% OR x%>319
  3790.       SHOWM
  3791.     LOOP
  3792.     '
  3793.     WHILE MOUSEK
  3794.     WEND
  3795.     GRAPHMODE 3
  3796.     BOX x1%-1,y1%-1,x1%+40,y1%+40     ! alte Markierung löschen
  3797.     GET 0,0,319,399,teilbild$
  3798.     SPUT bild$
  3799.     PUT teilbild%,0,teilbild$
  3800.     SGET bild$
  3801.     SHOWM
  3802.   ENDIF
  3803. RETURN
  3804. PROCEDURE mirrorput(x%,y%,s.%)
  3805.   IF DPEEK(s.%+4)>6      !nur wenn auch etwas da ist
  3806.     a%=LPEEK(s.%)
  3807.     b%=DPEEK(a%)
  3808.     h%=DPEEK(a%+2)
  3809.     smfdb%(0)=a%+6
  3810.     smfdb%(1)=(b%+16) AND &HFFF0
  3811.     smfdb%(2)=h%+1
  3812.     smfdb%(3)=smfdb%(1)/16
  3813.     smfdb%(5)=DPEEK(a%+4)
  3814.     dmfdb%(0)=XBIOS(3)
  3815.     dmfdb%(1)=640
  3816.     dmfdb%(2)=400
  3817.     dmfdb%(3)=40
  3818.     dmfdb%(5)=1
  3819.     al$=CHR$(4)+" "+CHR$(3)+" | "+CHR$(1)+" "+CHR$(2)+" |Abbruch"
  3820.     ALERT 2,"Wie willst Du spiegeln?",0,al$,antw%
  3821.     ON antw% GOSUB vertikal,horizontal
  3822.   ENDIF
  3823. RETURN
  3824. PROCEDURE moduswahl
  3825.   LOCAL x%,y%,k%
  3826.   SGET merk$
  3827.   DEFLINE 1,1,0,0
  3828.   modus$=""
  3829.   DO
  3830.     BOUNDARY 1
  3831.     GRAPHMODE 1
  3832.     DEFFILL 1,0,0
  3833.     PRBOX 180,30,460,205
  3834.     FOR i%=1 TO 4
  3835.       BOX 200,23+i%*32,440,55+i%*32
  3836.     NEXT i%
  3837.     PRINT AT(27,5);"Modus 1: überdecken"
  3838.     PRINT AT(27,7);"Modus 2: durchsichtig"
  3839.     PRINT AT(27,9);"Modus 3: X-Or"
  3840.     PRINT AT(27,11);"Modus 4: Invers transparent"
  3841.     DEFFILL 1,1,1
  3842.     GRAPHMODE 3
  3843.     PBOX 200,23+mode%*32,440,55+mode%*32
  3844.     EXIT IF modus$<>""
  3845.     DO
  3846.       MOUSE x%,y%,k%
  3847.       i$=INKEY$
  3848.       EXIT IF (k%=1 AND x%>200 AND x%<440 AND y%>55 AND y%<249) OR ASC(i$)=13
  3849.       EXIT IF VAL(i$)>0 AND VAL(i$)<5
  3850.     LOOP
  3851.     EXIT IF ASC(i$)=13 OR modus$<>""
  3852.     IF k%=1 AND x%>200 AND x%<440 AND y%>55 AND y%<183
  3853.       mode%=INT((y%-23)/32)
  3854.       modus$=" "+STR$(mode%)
  3855.     ENDIF
  3856.     IF VAL(i$)>0
  3857.       mode%=VAL(i$)
  3858.       modus$=" "+STR$(mode%)
  3859.     ENDIF
  3860.   LOOP
  3861.   '
  3862.   ' Einstellen des Modus für PUT
  3863.   '
  3864.   IF mode%=1
  3865.     p_mode%=3
  3866.   ENDIF
  3867.   IF mode%=2
  3868.     p_mode%=7
  3869.   ENDIF
  3870.   IF mode%=3
  3871.     p_mode%=6
  3872.   ENDIF
  3873.   IF mode%=4
  3874.     p_mode%=13
  3875.   ENDIF
  3876.   '
  3877.   PAUSE 10
  3878.   WHILE MOUSEK
  3879.   WEND
  3880.   SPUT menue$
  3881.   GRAPHMODE 1
  3882.   DEFTEXT 1,0,0,6
  3883.   TEXT 402,390,"    "+STR$(mode%)
  3884.   SGET menue$
  3885.   SPUT merk$
  3886.   GRAPHMODE mode%
  3887. RETURN
  3888. PROCEDURE musterwahl
  3889.   LOCAL x%,y%,k%
  3890.   SGET merk$
  3891.   DEFMOUSE 3
  3892. musterdaten:
  3893.   DATA 2,1,2,2,2,3,2,4,2,5,2,6
  3894.   DATA 2,7,2,8,2,9,2,10,2,11,2,12
  3895.   DATA 2,13,2,14,2,15,2,16,2,17,2,18
  3896.   DATA 2,19,2,20,2,21,2,22,2,23,2,24
  3897.   DATA 3,1,3,2,3,3,3,4,3,5,3,6
  3898.   DATA 3,7,3,8,3,9,3,10,3,11,3,12,4,1,0,0,0,0
  3899.   RESTORE musterdaten
  3900.   GRAPHMODE 1
  3901.   BOUNDARY 1
  3902.   FOR i%=0 TO 37
  3903.     READ x%,y%
  3904.     DEFFILL 1,x%,y%
  3905.     PBOX i%*16.8,50,i%*16.8+16.8,110
  3906.   NEXT i%
  3907.   REPEAT
  3908.     MOUSE x%,y%,k%
  3909.     x%=INT(x%/16.8)
  3910.     EXIT IF k%>1
  3911.   UNTIL k% AND y%>40 AND y%<110
  3912.   IF k%=1
  3913.     RESTORE musterdaten
  3914.     FOR i%=1 TO x%+1
  3915.       READ muster1%,muster2%
  3916.     NEXT i%
  3917.     DEFFILL 1,muster1%,muster2%
  3918.     PBOX 0,50,640,110
  3919.     PAUSE 10
  3920.     WHILE MOUSEK
  3921.     WEND
  3922.   ENDIF
  3923.   SPUT menue$
  3924.   DEFFILL 1,muster1%,muster2%
  3925.   PBOX 240,380,320,399
  3926.   SGET menue$
  3927.   SPUT merk$
  3928.   DEFMOUSE 0
  3929.   WHILE MOUSEK
  3930.   WEND
  3931. RETURN
  3932. PROCEDURE n_ecken    ! Nach dem Programm "DENISE" aus der "68000er"
  3933.   LOCAL x%,y%,k%
  3934.   SGET undo$
  3935.   HIDEM
  3936.   SGET merk$
  3937.   '
  3938.   GOSUB schreibkasten
  3939.   PRINT AT(22,8);"Regelmäßiges Vieleck"
  3940.   PRINT AT(22,11);"Bitte Anzahl der Ecken eingeben"
  3941.   PRINT AT(22,12);"(höchstens 29)"
  3942.   PRINT AT(22,14);">_";
  3943.   '
  3944.   eck$=""
  3945.   DO
  3946.     i$=INKEY$
  3947.     IF ASC(i$)>47 AND ASC(i$)<58 ! Eingabe muß Ziffer sein
  3948.       eck$=eck$+i$
  3949.       PRINT CHR$(8);i$;"_";
  3950.     ENDIF
  3951.     EXIT IF VAL(eck$)>2
  3952.   LOOP
  3953.   PRINT CHR$(8);"-Eck"
  3954.   PAUSE 20
  3955.   eck%=VAL(eck$)
  3956.   SPUT merk$
  3957.   DO
  3958.     DEFLINE 1,1,0,0
  3959.     SHOWM
  3960.     DEFMOUSE 7
  3961.     REPEAT
  3962.       MOUSE x%,y%,k%
  3963.       i$=INKEY$
  3964.       IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  3965.         al$="  Mauspfeil auf gewünschten|         Mittelpunkt,| dann linke Maustaste halten|"
  3966.         al$=al$+" und die Umkreisgröße bestimmen| "
  3967.         ALERT 0,al$,1," OK ",antw%
  3968.         DEFMOUSE 7
  3969.       ENDIF
  3970.     UNTIL k%
  3971.     EXIT IF k%>1
  3972.     GOSUB gummikreis
  3973.     GRAPHMODE mode%
  3974.     PLOT x%+radius%,y%
  3975.     DEFLINE stil%,breite%,2,2
  3976.     DEFFILL 1,muster1%,muster2%
  3977.     GRAPHMODE mode%
  3978.     COLOR farbe%
  3979.     IF figurfuellen!=FALSE
  3980.       FOR f#=0 TO 2*PI STEP (2*PI)/eck%
  3981.         DRAW  TO x%+COS(f#)*radius%,y%+SIN(f#)*radius%
  3982.       NEXT f#
  3983.       DRAW  TO x%+radius%,y%
  3984.       DEFFILL 1,muster1%,muster2%
  3985.     ELSE
  3986.       DIM x%(eck%)
  3987.       DIM y%(eck%)
  3988.       x%(0)=x%+radius%
  3989.       y%(0)=y%
  3990.       x%(eck%)=x%+radius%
  3991.       y%(eck%)=y%
  3992.       FOR f#=0 TO 2*PI STEP (2*PI)/eck%
  3993.         x%(INT(f#/((2*PI)/eck%)+0.5))=x%+COS(f#)*radius%
  3994.         y%(INT(f#/((2*PI)/eck%)+0.5))=y%+SIN(f#)*radius%
  3995.       NEXT f#
  3996.       POLYFILL eck%,x%(),y%()
  3997.       ERASE x%()
  3998.       ERASE y%()
  3999.     ENDIF
  4000.     REPEAT
  4001.       MOUSE x%,y%,k%
  4002.     UNTIL k%=0
  4003.   LOOP
  4004.   SGET bild$
  4005. RETURN
  4006. PROCEDURE neuer_ordner
  4007.   GOSUB fileselect_titel("Neuen Ordner auf der Diskette anlegen")
  4008.   FILESELECT "\*.*","",ordner$
  4009.   IF ordner$>""
  4010.     IF EXIST(ordner$)
  4011.       ALERT 3,"Es gibt schon eine Datei|mit diesem Namen!",1,"Abbruch",dummy%
  4012.     ELSE
  4013.       MKDIR ordner$
  4014.     ENDIF
  4015.   ENDIF
  4016.   SPUT menue$
  4017. RETURN
  4018. PROCEDURE pulldownmenue
  4019.   IF menue$(MENU(0))=" über dies Programm"
  4020.     meld$="       K R I T Z E L       |   das Pixelverbiegeprogramm |"
  4021.     meld$=meld$+"       von Heiko Müller|Mozartstraße 17, 2905 Edewecht"
  4022.     ALERT 0,meld$,1," OK ",dummy%
  4023.   ENDIF
  4024.   IF menue$(MENU(0))=" weiter im Programm"
  4025.     i$="weiter"
  4026.   ENDIF
  4027.   IF menue$(MENU(0))=" Programmende"
  4028.     GOSUB schluss
  4029.   ENDIF
  4030.   MENU OFF
  4031. RETURN
  4032. PROCEDURE radiergummi
  4033.   LOCAL x%,y%,k%
  4034.   DEFMOUSE 5
  4035.   SGET undo$
  4036.   WHILE MOUSEK
  4037.   WEND
  4038.   HIDEM
  4039.   DEFLINE 1,1,2,2
  4040.   REPEAT
  4041.     GRAPHMODE 3
  4042.     i$=INKEY$
  4043.     IF LEN(i$)=2 AND ASC(RIGHT$(i$))=98
  4044.       al$="bitte zuerst durch Mausklick |bestimmen, wie groß|"
  4045.       al$=al$+"das Radiergummi sein soll | "
  4046.       ALERT 0,al$,1," OK ",dummy%
  4047.     ENDIF
  4048.     MOUSE x%,y%,k%
  4049.     BOX 0,0,x%,y%
  4050.     PAUSE 2
  4051.     BOX 0,0,x%,y%
  4052.   UNTIL k%<>0
  4053.   WHILE MOUSEK
  4054.   WEND
  4055.   rbreite%=x%
  4056.   rhoehe%=y%
  4057.   SETMOUSE 0,0
  4058.   DEFFILL 0,1,0
  4059.   DO
  4060.     REPEAT
  4061.       GRAPHMODE 3
  4062.       MOUSE x%,y%,k%
  4063.       BOX x%,y%,x%+rbreite%,y%+rhoehe%
  4064.       PAUSE 1
  4065.       BOX x%,y%,x%+rbreite%,y%+rhoehe%
  4066.       x$=INKEY$
  4067.     UNTIL k% OR x$="X" OR x$="x"
  4068.     IF x$="X" OR x$="x"
  4069.       SPUT merk$
  4070.     ENDIF
  4071.     SGET merk$
  4072.     WHILE k%=1
  4073.       GRAPHMODE 3
  4074.       BOX x%,y%,x%+rbreite%,y%+rhoehe%
  4075.       PAUSE 1
  4076.       BOX x%,y%,x%+rbreite%,y%+rhoehe%
  4077.       GRAPHMODE 1
  4078.       MOUSE x%,y%,k%
  4079.       PBOX x%,y%,x%+rbreite%,y%+rhoehe%
  4080.     WEND
  4081.     EXIT IF k%>1
  4082.   LOOP
  4083.   DEFLINE stil%,breite%,anfang%,ende%
  4084.   GRAPHMODE mode%
  4085.   DEFFILL 1,muster1%,muster2%
  4086.   COLOR farbe%
  4087.   SGET bild$
  4088. RETURN
  4089. PROCEDURE rundkasten
  4090.   LOCAL x%,y%,k%
  4091.   SGET undo$
  4092.   DEFMOUSE 7
  4093.   DO
  4094.     COLOR 1
  4095.     DEFLINE 1,1,0,0
  4096.     REPEAT
  4097.       MOUSE x%,y%,k%
  4098.     UNTIL k%
  4099.     EXIT IF k%>1
  4100.     GOSUB gummikasten
  4101.     EXIT IF k%>1
  4102.     GRAPHMODE mode%
  4103.     DEFLINE stil%,breite%,2,2
  4104.     DEFFILL 1,muster1%,muster2%
  4105.     COLOR farbe%
  4106.     IF figurfuellen!
  4107.       PRBOX x%,y%,x1%,y1%
  4108.     ELSE
  4109.       RBOX x%,y%,x1%,y1%
  4110.     ENDIF
  4111.     PAUSE 5
  4112.   LOOP
  4113.   SGET bild$
  4114. RETURN
  4115. PROCEDURE schluss
  4116.   ON BREAK CONT    ! damit keine Doppelabfrage erfolgt
  4117.   OUT 2,7
  4118.   ALERT 2,"Soll die Arbeit mit diesem|Programm beendet werden?",1," Ja | Nein ",antw%
  4119.   IF antw%=1
  4120.     VOID XBIOS(35,20,3)      ! Tastaturklickverzögerung und -wiederholung ein
  4121.     EDIT
  4122.   ENDIF
  4123.   ON BREAK GOSUB schluss
  4124.   VOID XBIOS(35,0,0)         ! Tastaturklickverzögerung und -wiederholung aus
  4125. RETURN
  4126. PROCEDURE schreiben
  4127.   LOCAL x%,y%,k%
  4128.   SGET undo$
  4129.   DEFMOUSE 1
  4130.   DEFTEXT farbe%,schriftart%,wink%,hoehe%(ho%)
  4131.   SGET merk$
  4132.   GRAPHMODE mode%
  4133.   DO
  4134.     IF schreib$=""      ! bei leerem String warten, bis erste Eingabe erfolgt
  4135.       REPEAT
  4136.         schreib$=INKEY$
  4137.         SHOWM
  4138.       UNTIL schreib$>"" OR MOUSEK>1
  4139.       TEXT MOUSEX,MOUSEY,schreib$
  4140.       HIDEM
  4141.     ENDIF
  4142.     IF schreib$=CHR$(8) ! Backspace nicht als erstes Zeichen möglich
  4143.       schreib$=""
  4144.     ENDIF
  4145.     REPEAT
  4146.       MOUSE x%,y%,k%
  4147.       EXIT IF k%>1
  4148.       i$=INKEY$
  4149.       IF i$=CHR$(27)  ! Esc
  4150.         schreib$=""
  4151.         i$=""
  4152.       ENDIF
  4153.       EXIT IF i$=CHR$(13) OR schreib$=""       ! Return oder String gelöscht
  4154.       IF i$>"" AND i$<>CHR$(8)
  4155.         schreib$=schreib$+i$
  4156.         TEXT x%,y%,schreib$
  4157.       ENDIF
  4158.       IF i$=CHR$(8)                             ! Backspace
  4159.         schreib$=LEFT$(schreib$,LEN(schreib$)-1)
  4160.         SPUT merk$
  4161.         TEXT x%,y%,schreib$
  4162.       ENDIF
  4163.       MOUSE x1%,y1%,k%
  4164.       IF x1%<>x% OR y1%<>y%
  4165.         SPUT merk$
  4166.         TEXT x1%,y1%,schreib$
  4167.       ENDIF
  4168.     UNTIL k%=1
  4169.     EXIT IF k%>1
  4170.     SPUT merk$
  4171.     IF LEN(schreib$)
  4172.       TEXT x%,y%,schreib$
  4173.       SGET merk$
  4174.       IF k%=1
  4175.         schreib$=""
  4176.       ENDIF
  4177.     ENDIF
  4178.   LOOP
  4179.   SPUT merk$
  4180.   SGET bild$
  4181.   DEFMOUSE 1
  4182. RETURN
  4183. PROCEDURE schreibkasten
  4184.   GRAPHMODE 1
  4185.   COLOR 1
  4186.   DEFLINE 1,1,2,2
  4187.   DEFFILL 1,2,8
  4188.   PBOX 144,64,504,309   ! schwarzer Hintergrundkasten
  4189.   DEFFILL 0,2,8
  4190.   PBOX 140,60,500,305   ! weißer Kasten davor
  4191.   BOX 140,60,500,305    ! Umrandung
  4192. RETURN
  4193. PROCEDURE schriftwahl   ! Nach dem Programm "DENISE" aus der "68000er"
  4194.   LOCAL x%,y%,k%
  4195.   GRAPHMODE 1
  4196.   SGET merk$
  4197.   DEFFILL 1,0,0
  4198.   BOUNDARY 1
  4199.   PRBOX 130,60,440,270
  4200.   FOR y%=70 TO 230 STEP 32
  4201.     PBOX 140,y%,240,y%+31
  4202.   NEXT y%
  4203.   PRBOX 275,230,315,260
  4204.   PRINT AT(21,6);"Normal"
  4205.   PRINT AT(21,8);"Fett"
  4206.   PRINT AT(21,10);"Hell"
  4207.   PRINT AT(21,12);"Kursiv"
  4208.   PRINT AT(21,14);"Unterstr."
  4209.   PRINT AT(21,16);"Umrandet"
  4210.   PRINT AT(37,16);"OK"
  4211.   REPEAT
  4212.     FOR i%=8 TO 16 STEP 2
  4213.       PRINT AT(19,i%);" "
  4214.     NEXT i%
  4215.     IF schriftart%>0
  4216.       FOR i%=0 TO 4
  4217.         IF schriftart% AND 2^i%
  4218.           PRINT AT(19,8+i%*2);">"
  4219.         ENDIF
  4220.       NEXT i%
  4221.     ENDIF
  4222.     GRAPHMODE 1
  4223.     FOR y%=70 TO 230 STEP 64
  4224.       PBOX 335,y%,430,y%+31
  4225.     NEXT y%
  4226.     PRINT AT(45,6);"größer"
  4227.     PRINT AT(45,10);"kleiner"
  4228.     PRINT AT(45,14);"drehen"
  4229.     PBOX 245,70,330,190
  4230.     GRAPHMODE 2
  4231.     DEFTEXT 1,schriftart%,wink%,hoehe%(ho%)
  4232.     TEXT 285,110,"Aa"
  4233.     TEXT 285,145,"01"
  4234.     REPEAT
  4235.       MOUSE x%,y%,k%
  4236.       i$=INKEY$
  4237.     UNTIL k%=1 OR i$=CHR$(13)
  4238.     PAUSE 9
  4239.     IF x%>140 AND x%<240 AND y%>70 AND y%<262 AND k%=1
  4240.       IF y%<102
  4241.         schriftart%=0
  4242.       ENDIF
  4243.       FOR i%=0 TO 4
  4244.         IF y%>102+32*i% AND y%<134+32*i%
  4245.           IF schriftart% AND 2^i%
  4246.             SUB schriftart%,2^i%
  4247.           ELSE
  4248.             ADD schriftart%,2^i%
  4249.           ENDIF
  4250.         ENDIF
  4251.       NEXT i%
  4252.     ENDIF
  4253.     IF x%>335 AND x%<430 AND y%>70 AND y%<230 AND k%=1
  4254.       IF y%<102
  4255.         INC ho%
  4256.         IF ho%>4
  4257.           ho%=4
  4258.         ENDIF
  4259.       ENDIF
  4260.       IF y%>134 AND y%<166
  4261.         SUB ho%,1
  4262.         IF ho%<0
  4263.           ho%=0
  4264.         ENDIF
  4265.       ENDIF
  4266.       IF y%>198 AND y%<230
  4267.         ADD wink%,900
  4268.         IF wink%>2700
  4269.           wink%=0
  4270.         ENDIF
  4271.       ENDIF
  4272.     ENDIF
  4273.   UNTIL x%>275 AND x%<315 AND y%>230 AND y%<260 OR i$=CHR$(13)
  4274.   DEFFILL 1,muster1%,muster2%
  4275.   DEFTEXT 1,schriftart%,wink%,hoehe%(ho%)
  4276.   '
  4277.   SPUT menue$
  4278.   DEFFILL 0,2,8
  4279.   PBOX 81,251,159,295
  4280.   IF wink%=0 OR wink%=900
  4281.     TEXT 120,290,"W"
  4282.   ELSE
  4283.     TEXT 120,270,"W"
  4284.   ENDIF
  4285.   SGET menue$
  4286.   '
  4287.   SPUT merk$
  4288. RETURN
  4289. PROCEDURE signum_einladen
  4290.   '
  4291.   ' Einladen von SIGNUM!-Fonts als PUT-Graphiken
  4292.   '
  4293.   ' aus GFA-Club-Nachrichten 1/2-89  Seite 24
  4294.   '
  4295.   SGET undo$
  4296.   CLS
  4297.   abbruch!=FALSE
  4298.   GOSUB fileselect_titel("SIGNUM-Druckerfont einladen")
  4299.   FILESELECT laufwerk$+"*.P24","",fileauswahl$
  4300.   ext$=RIGHT$(fileauswahl$,4)
  4301.   IF ext$<>".P24"
  4302.     ALERT 1,"Das ist leider kein|SIGNUM-Drucker-Font",1,"Abbruch",dummy%
  4303.     abbruch!=TRUE
  4304.   ELSE
  4305.     '
  4306.     IF EXIST(fileauswahl$)
  4307.       ERASE z_propbr%()
  4308.       ERASE zeichen$()
  4309.       DIM z_propbr%(221),zeichen$(221)
  4310.       RESERVE 2*FRE(0)/3
  4311.       prnt_ram%=HIMEM+4000
  4312.       IF ODD(prnt_ram%)
  4313.         INC prnt_ram%
  4314.       ENDIF
  4315.       '
  4316.       fileauswahl$=LEFT$(fileauswahl$,LEN(fileauswahl$)-4)
  4317.     ENDIF
  4318.     '
  4319.     OPEN "i",#1,fileauswahl$+".P24"
  4320.     lof%=LOF(#1)
  4321.     CLOSE #1
  4322.     BLOAD fileauswahl$+".P24",prnt_ram%   !Druckerfont einladen
  4323.     IF EXIST(fileauswahl$+".E24")
  4324.       edit_ram%=prnt_ram%+lof%+2
  4325.       IF ODD(edit_ram%)
  4326.         INC edit_ram%
  4327.       ENDIF
  4328.       BLOAD fileauswahl$+".E24",edit_ram%
  4329.     ELSE
  4330.       ALERT 1,"Der Editor-Font fehlt!",1,"Abbruch",dummy%
  4331.       RESERVE 3*FRE(0)/2     !Speicher freigeben
  4332.       abbruch!=TRUE
  4333.     ENDIF
  4334.   ENDIF
  4335.   '
  4336.   IF NOT abbruch!
  4337.     GET 0,0,80,80,zeichen$(0)      ! leeren Kasten für Leerzeichen
  4338.     '
  4339.     FOR i%=1 TO 127
  4340.       '
  4341.       offset_i%=LPEEK(prnt_ram%+140+i%*4)
  4342.       y_offset%=PEEK(prnt_ram%+652+offset_i%)
  4343.       z_hoehe%=PEEK(prnt_ram%+653+offset_i%)
  4344.       z_breite%=PEEK(prnt_ram%+654+offset_i%)
  4345.       '
  4346.       offset_e%=LPEEK(edit_ram%+140+i%*4)
  4347.       z_propbr%(i%)=PEEK(edit_ram%+654+offset_e%)
  4348.       '
  4349.       IF z_hoehe%>0 AND z_breite%>0
  4350.         y_offset$=STRING$(y_offset%*(z_breite%-ODD(z_breite%)),0)
  4351.         '
  4352.         IF ODD(z_breite%)
  4353.           zeichenbreite%=z_breite%-ODD(z_breite%)
  4354.           CLR b$,br_zaehl%
  4355.           FOR j%=1 TO z_hoehe%
  4356.             c$=STRING$(zeichenbreite%,0)
  4357.             BMOVE prnt_ram%+656+offset_i%+br_zaehl%,VARPTR(c$),zeichenbreite%
  4358.             b$=b$+c$
  4359.             ADD br_zaehl%,z_breite%
  4360.           NEXT j%
  4361.         ELSE
  4362.           b$=STRING$(z_hoehe%*z_breite%,0)
  4363.           VOID FRE(0)
  4364.           BMOVE prnt_ram%+656+offset_i%,VARPTR(b$),z_hoehe%*z_breite%
  4365.         ENDIF
  4366.         b$=y_offset$+b$
  4367.         '
  4368.         zeichen$(i%)=MKI$(z_breite%*8-1)+MKI$(y_offset%+z_hoehe%-1)+MKI$(1)+b$
  4369.         '
  4370.         PUT 300,100,zeichen$(0)
  4371.         PUT 300,100,zeichen$(i%)
  4372.       ELSE
  4373.         zeichen$(i%)=""
  4374.       ENDIF
  4375.     NEXT i%
  4376.     '
  4377.     z_propbr%(0)=z_propbr%(65)     ! Breite des Leerzeichens wie beim "A"
  4378.     '
  4379.     CLS
  4380.     '
  4381.     RESTORE tauschdaten
  4382.     '
  4383.   tauschdaten:
  4384.     DATA 64,129
  4385.     DATA 93,132
  4386.     DATA 125,142
  4387.     DATA 91,148
  4388.     DATA 123,153
  4389.     DATA 92,154
  4390.     DATA 127,158
  4391.     DATA 1,123
  4392.     DATA 2,125
  4393.     DATA 15,91
  4394.     DATA 16,93
  4395.     DATA 32,221
  4396.     DATA 0,32
  4397.     '
  4398.     REPEAT
  4399.       READ x%,y%
  4400.       zeichen$(y%)=zeichen$(x%)    ! an ASCII-Codes anpassen
  4401.       z_propbr%(y%)=z_propbr%(x%)
  4402.     UNTIL x%=0
  4403.     '
  4404.     x%=100
  4405.     y%=100
  4406.     DATA 102,101,114,116,105,103,33,-1
  4407.     DO
  4408.       READ z%                       ! "fertig" auf den Bildschirm schreiben
  4409.       EXIT IF z%<0
  4410.       PUT x%,y%,zeichen$(z%),7
  4411.       ADD x%,z_propbr%(z%)*4
  4412.     LOOP
  4413.     RESERVE 3*FRE(0)/2              ! Speicher freigeben
  4414.     '
  4415.     FOR i%=0 TO 31                  ! die ersten 32 Zeichen löschen
  4416.       zeichen$(i%)=""
  4417.     NEXT i%
  4418.     '
  4419.     REPEAT
  4420.     UNTIL MOUSEK>1 OR INKEY$>""
  4421.     signum!=TRUE
  4422.   ENDIF
  4423.   SPUT bild$
  4424. RETURN
  4425. PROCEDURE signum_schreiben   ! Schreiben mit großen SIGNUM-Zeichen
  4426.   LOCAL x%,y%,k%
  4427.   IF NOT signum!
  4428.     ALERT 1,"Du hast noch keinen|SIGNUM-Zeichensatz geladen!",1,"ach ja",dummy%
  4429.   ELSE
  4430.     SGET undo$
  4431.     REPEAT
  4432.       CLS
  4433.       '
  4434.       x%=0
  4435.       y%=0
  4436.       i$=""
  4437.       '
  4438.       COLOR 1
  4439.       DEFLINE 1,1,0,0
  4440.       '
  4441.       DO
  4442.         LINE x%+10,y%+1,x%+10,y%+z_hoehe%-1     ! Linie als Cursor
  4443.         REPEAT
  4444.           i%=ASC(INKEY$)
  4445.           IF MOUSEK>1
  4446.             i%=27            ! rechte Maustaste imitiert Esc-Taste
  4447.           ENDIF
  4448.         UNTIL i%>0
  4449.         '
  4450.         IF i%>31
  4451.           i$=i$+CHR$(i%)     ! Kontrollstring (wird für Backspace gebraucht)
  4452.         ENDIF
  4453.         '
  4454.         COLOR 0
  4455.         LINE x%+10,y%+1,x%+10,y%+z_hoehe%-1     ! Cursor weiß übermalen
  4456.         COLOR 1
  4457.         '
  4458.         EXIT IF i%=27
  4459.         '
  4460.         IF x%>550 AND (i%>31)                 ! Klingel am Zeilenende
  4461.           OUT 2,7
  4462.         ENDIF
  4463.         '
  4464.         IF i%=8                               ! Backspace
  4465.           IF LEN(i$)>0
  4466.             SUB x%,z_propbr%(ASC(RIGHT$(i$,1)))*4
  4467.             PUT x%,y%,zeichen$(32)
  4468.             i$=LEFT$(i$,LEN(i$)-1)
  4469.           ENDIF
  4470.         ELSE
  4471.           '
  4472.           PUT x%,y%,zeichen$(i%),7
  4473.           ADD x%,z_propbr%(i%)*4
  4474.           '
  4475.           IF i%=13                        ! Return
  4476.             x%=0
  4477.             ADD y%,80
  4478.             i$=""                         ! Kontrollstring löschen
  4479.           ENDIF
  4480.           '
  4481.         ENDIF
  4482.         EXIT IF y%>320
  4483.       LOOP
  4484.       '
  4485.     UNTIL i%=27                     ! Abbruch mit Esc (oder rechter Maustaste)
  4486.     SGET bild$
  4487.   ENDIF
  4488. RETURN
  4489. PROCEDURE speicher_einrichten
  4490.   DIM menue$(30)
  4491.   RESTORE pulldowndaten
  4492.   i%=-1
  4493.   DO
  4494.     INC i%
  4495.     READ menue$(i%)
  4496.     EXIT IF menue$(i%)="***"
  4497.   LOOP
  4498.   LET menue$(i%)=""
  4499.   LET menue$(i%+1)=""
  4500.   '
  4501. pulldowndaten:
  4502.   '
  4503.   DATA  Kritzel , über dies Programm
  4504.   DATA --------------------
  4505.   DATA 1,2,3,4,5,6,""
  4506.   DATA  zurück, weiter im Programm
  4507.   DATA --------------------, Programmende,""
  4508.   DATA ***
  4509.   '
  4510.   DIM wert#(20),sektor#(20),text$(20),prozent#(20) ! für Tortendiagramme
  4511.   DIM hoehe%(4)                                    ! Buchstabenhöhe
  4512.   DIM bild$(5)
  4513.   FOR i%=1 TO 5
  4514.     bild$(i%)=bild$               ! fünf Bildschirme zum Wechseln
  4515.   NEXT i%
  4516.   bild%=1                         ! Nummer des aktuellen Bildes
  4517.   DIM smfdb%(8),dmfdb%(8),p%(8) ! für die Procedur "mirrorput"
  4518.   muster1%=2
  4519.   muster2%=4
  4520.   DEFFILL 1,muster1%,muster2% ! grau
  4521.   gitter!=FALSE               ! aus
  4522.   farbe%=1                    ! schwarz
  4523.   figurfuellen!=FALSE
  4524.   sprueh%=10            ! Radius für Sprühdose
  4525.   mode%=1
  4526.   modus$=" 1"
  4527.   p_mode%=3             ! Modus bei PUT (überschreiben)
  4528.   stil%=1               ! Liniendefinition
  4529.   breite%=1
  4530.   anfang%=2
  4531.   ende%=2
  4532.   RESTORE hoehe
  4533.   FOR i%=0 TO 4
  4534.     READ hoehe%(i%)     ! Schrifthöhen
  4535.   NEXT i%
  4536. hoehe:
  4537.   DATA 4,6,13,20,32
  4538.   ho%=2                 ! Index für Schrifthöhen
  4539.   wink%=0               ! Winkel für Schriften
  4540.   LET auswahl$="bild"   ! Vorgabe des Dateinamens
  4541.   extension$="PIC"
  4542.   laufwerk%=GEMDOS(25)+1
  4543.   laufwerk$=CHR$(GEMDOS(25)+65)+":"+"\"
  4544.   pfad$=laufwerk$+"*."+extension$
  4545.   dateiname$="TEST.PIC"
  4546.   blockpfad$=laufwerk$+"*.BLK"
  4547.   blockname$="TEST.BLK"
  4548.   signum!=FALSE            ! Kontrolle, ob SIGNUM-Font eingeladen
  4549.   bound%=1                 ! 1 = gefüllte Figuren mit Rand
  4550. RETURN
  4551. PROCEDURE speichern
  4552.   GOSUB fileselect_titel("Bild auf der Diskette speichern")
  4553.   FILESELECT pfad$,dateiname$,auswahl$
  4554.   IF LEN(auswahl$)>0
  4555.     laufwerk%=ASC(auswahl$)-64
  4556.     IF DFREE(laufwerk%)<32000 AND NOT EXIST(auswahl$)
  4557.       ALERT 0,"Nicht genug Platz|auf der Diskette!| |Willst Du etwas löschen?",1," ja |nein",antw%
  4558.       IF antw%=1
  4559.         GOSUB datei_loeschen
  4560.         ALERT 1,"Das Bild wurde noch nicht|gespeichert! | | Bitte noch einmal versuchen",1,"danke",dummy%
  4561.       ENDIF
  4562.     ELSE
  4563.       '
  4564.       IF INSTR(auswahl$,".")=0    ! falls der eingegebene Name keine Extension hat
  4565.         LET auswahl$=auswahl$+".PIC"     ! .PIC dranhängen
  4566.       ENDIF
  4567.       '
  4568.       FOR i%=LEN(auswahl$) DOWNTO 0                ! der Dateiname wird ermittelt
  4569.         dateiname$=RIGHT$(auswahl$,LEN(auswahl$)-i%)  ! durch Herunterzählen bis "\"
  4570.         punkt%=INSTR(dateiname$,".")            ! untersuchen, ob Punkt dabei;
  4571.         IF punkt%>0                             ! wenn ja,
  4572.           extension$=MID$(dateiname$,punkt%+1,3)! wird die Extension herausgelesen
  4573.         ENDIF
  4574.         pfad$=LEFT$(auswahl$,i%)+"*."+extension$   ! neuer Pfadname wird gebaut
  4575.         EXIT IF MID$(auswahl$,i%,1)="\"            ! "\" gefunden, dann raus
  4576.       NEXT i%
  4577.       '
  4578.       SPUT bild$
  4579.       HIDEM
  4580.       BSAVE auswahl$,XBIOS(2),32000
  4581.     ENDIF
  4582.   ENDIF
  4583.   DEFFILL 1,muster1%,muster2%
  4584.   GRAPHMODE 1
  4585.   SPUT bild$
  4586. RETURN
  4587. PROCEDURE speicherplatz
  4588.   frei%=DFREE(laufwerk%)
  4589.   al$="Speicherplatz auf|Laufwerk "+CHR$(laufwerk%+64)+": "+STR$(frei%)+" K"
  4590.   IF frei%>63999
  4591.     al$=al$+"| |Das reicht noch für "+STR$(INT(frei%/32000))+" Bilder."
  4592.   ELSE
  4593.     IF frei%>31999
  4594.       al$=al$+"| |Das reicht noch für 1 Bild."
  4595.     ELSE
  4596.       al$=al$+"|Das reicht nicht mehr|für ein ganzes Bild!"
  4597.     ENDIF
  4598.   ENDIF
  4599.   ALERT 1,al$,1," Aha ",dummy%
  4600.   DEFMOUSE 3
  4601. RETURN
  4602. PROCEDURE spiegeln     ! die Proceduren spiegeln, mirrorput, vertikal und
  4603.   '           horizontal stammen alle aus dem GFA-BASIC-Buch von F. Ostrowski
  4604.   merk$=block$         ! alten Block merken (falls Abbruch)
  4605.   SGET undo$
  4606.   GRAPHMODE 3
  4607.   DEFLINE 1,1,0,0
  4608.   HIDEM
  4609.   REPEAT
  4610.     i$=INKEY$
  4611.     IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  4612.       al$=" bitte erste Ecke festlegen, |  linke Maustaste festhalten |"
  4613.       al$=al$+" und die Blockgröße bestimmen| "
  4614.       ALERT 0,al$,1," OK ",dummy%
  4615.     ENDIF
  4616.     MOUSE x%,y%,k%                 ! großes Kreuz als Mauszeiger
  4617.     LINE 0,y%,639,y%
  4618.     LINE x%,0,x%,399
  4619.     PAUSE 2
  4620.     LINE 0,y%,639,y%
  4621.     LINE x%,0,x%,399
  4622.   UNTIL MOUSEK
  4623.   IF MOUSEK=1
  4624.     GOSUB gummikasten
  4625.     GET x%,y%,x1%,y1%,block$
  4626.     @mirrorput(x%,y%,*block$)
  4627.     GET x%,y%,x1%,y1%,block$
  4628.     SPUT bild$
  4629.     IF antw%<3
  4630.       GOSUB einsetzen
  4631.     ELSE
  4632.       block$=merk$
  4633.     ENDIF
  4634.   ENDIF
  4635. RETURN
  4636. PROCEDURE spruehdose
  4637.   LOCAL x%,y%,k%
  4638.   SGET undo$
  4639.   COLOR farbe%
  4640.   DEFLINE 1,1,0,0
  4641.   HIDEM
  4642.   DO
  4643.     GRAPHMODE 3
  4644.     HIDEM
  4645.     REPEAT
  4646.       MOUSE x%,y%,k%
  4647.       CIRCLE x%,y%,sprueh%
  4648.       PAUSE 1
  4649.       CIRCLE x%,y%,sprueh%
  4650.       x$=UPPER$(INKEY$)
  4651.       IF x$="E"
  4652.         SHOWM
  4653.         GRAPHMODE 1
  4654.         GOSUB spruehdose_einstellen
  4655.         GRAPHMODE 3
  4656.         HIDEM
  4657.         k%=0
  4658.       ENDIF
  4659.     UNTIL k% OR x$="X"
  4660.     IF x$="X"
  4661.       SPUT merk$
  4662.     ENDIF
  4663.     SGET merk$
  4664.     EXIT IF k%>1
  4665.     GRAPHMODE 1
  4666.     WHILE k%=1
  4667.       MOUSE x%,y%,k%
  4668.       '
  4669.       winkel%=RANDOM(360)
  4670.       radius%=RANDOM(sprueh%)
  4671.       x1%=x%+SIN(winkel%)*radius%
  4672.       y1%=y%+COS(winkel%)*radius%
  4673.       DRAW x1%,y1%
  4674.       '
  4675.     WEND
  4676.     EXIT IF k%>1
  4677.   LOOP
  4678.   DEFLINE stil%,breite%,anfang%,ende%
  4679.   GRAPHMODE 1
  4680.   SGET bild$
  4681. RETURN
  4682. PROCEDURE spruehdose_einstellen
  4683.   LOCAL x%,y%,k%
  4684.   SGET merk$
  4685.   al$="Sprühradius = "+STR$(sprueh%)+" Pixel"
  4686.   ALERT 0,al$,1,"OK|ändern",antw%
  4687.   IF antw%=2
  4688.     DEFFILL 0,2,8
  4689.     COLOR 1
  4690.     DEFLINE 1,1,0,0
  4691.     PBOX 230,120,410,220
  4692.     BOX 230,120,410,220
  4693.     PRINT AT(35,13);"-    OK   + ";
  4694.     PRINT AT(35,10);sprueh%';
  4695.     BOX 260,180,380,210
  4696.     BOX 300,180,340,210
  4697.     GRAPHMODE 3
  4698.     CIRCLE 350,150,sprueh%
  4699.     REPEAT
  4700.       MOUSE x%,y%,k%
  4701.       IF k%=1 AND y%>180 AND y%<210
  4702.         IF x%>260 AND x%<300
  4703.           CIRCLE 350,150,sprueh%
  4704.           SUB sprueh%,1
  4705.           PAUSE 2
  4706.           IF sprueh%=1
  4707.             sprueh%=2
  4708.           ENDIF
  4709.           CIRCLE 350,150,sprueh%
  4710.           PRINT AT(35,10);sprueh%';
  4711.         ENDIF
  4712.         IF x%>340 AND x%<380
  4713.           CIRCLE 350,150,sprueh%
  4714.           ADD sprueh%,1
  4715.           PAUSE 2
  4716.           IF sprueh%=31
  4717.             sprueh%=30
  4718.           ENDIF
  4719.           CIRCLE 350,150,sprueh%
  4720.           PRINT AT(35,10);sprueh%';
  4721.         ENDIF
  4722.       ENDIF
  4723.     UNTIL (x%>300 AND x%<340 AND y%>180 AND y%<210 AND k%=1)
  4724.   ENDIF
  4725.   SPUT menue$
  4726.   DEFTEXT 1,0,0,6
  4727.   GRAPHMODE 1
  4728.   TEXT 562,390,"    "+STR$(sprueh%)+" "
  4729.   SGET menue$
  4730.   SPUT merk$
  4731.   WHILE MOUSEK
  4732.   WEND
  4733.   COLOR farbe%
  4734.   GRAPHMODE mode%
  4735.   DEFFILL 1,muster1%,muster2%
  4736. RETURN
  4737. PROCEDURE strahlen
  4738.   LOCAL x%,y%,k%
  4739.   SGET undo$
  4740.   DEFMOUSE 7
  4741.   COLOR 1
  4742.   REPEAT
  4743.     MOUSE x%,y%,k%
  4744.   UNTIL k%
  4745.   WHILE MOUSEK
  4746.   WEND
  4747.   REPEAT
  4748.     GRAPHMODE 3
  4749.     DEFLINE 1,1,0,0
  4750.     REPEAT
  4751.       MOUSE x1%,y1%,k%
  4752.       LINE x%,y%,x1%,y1%
  4753.       PAUSE 3
  4754.       LINE x%,y%,x1%,y1%
  4755.     UNTIL k%
  4756.     GRAPHMODE mode%
  4757.     DEFLINE stil%,breite%,anfang%,ende%
  4758.     COLOR farbe%
  4759.     EXIT IF k%>1
  4760.     LINE x%,y%,x1%,y1%
  4761.     WHILE MOUSEK
  4762.     WEND
  4763.   UNTIL k%>1
  4764.   SGET bild$
  4765. RETURN
  4766. PROCEDURE testbild          ! Aufruf nur mit Shift B
  4767.   SGET undo$
  4768.   CLS
  4769.   GRAPHMODE 3
  4770.   DEFLINE 1,1,0,0
  4771.   DEFTEXT 1,16,0,32
  4772.   FOR i%=0 TO 639 STEP 4
  4773.     LINE 0,0,i%,399
  4774.     LINE 639,0,i%,399
  4775.   NEXT i%
  4776.   TEXT 250,100,"TESTBILD"
  4777.   SGET bild$
  4778.   GRAPHMODE mode%
  4779. RETURN
  4780. PROCEDURE torte
  4781.   LOCAL x%,y%,k%
  4782.   SGET undo$
  4783.   DEFTEXT 1,0,0,13
  4784.   DEFLINE 1,1,0,0
  4785.   GRAPHMODE 1
  4786.   DEFFILL 0,2,8
  4787.   PBOX 140,85,500,165
  4788.   BOX 140,85,500,165
  4789.   TEXT 200,110,"T O R T E N D I A G R A M M"
  4790.   LINE 140,120,500,120
  4791.   '
  4792.   REPEAT
  4793.     PRINT AT(22,9);"Wieviele Tortenstücke? (maximal 20)  ";
  4794.     FORM INPUT 2,i$
  4795.     anzahl%=VAL(i$)
  4796.     IF anzahl%>20 OR anzahl%<0
  4797.       OUT 2,7
  4798.     ENDIF
  4799.   UNTIL anzahl%<21 AND anzahl%>0
  4800.   '
  4801.   text!=FALSE
  4802.   ALERT 0,"Soll Text eingeblendet werden?",1," nein |  ja  ",antw%
  4803.   IF antw%=2
  4804.     text!=TRUE
  4805.   ENDIF
  4806.   '
  4807.   IF text!
  4808.     groesse%=6
  4809.     ALERT 0,"Klein- oder Normalschrift?",1," klein |normal ",antw%
  4810.     IF antw%=2
  4811.       groesse%=13
  4812.     ENDIF
  4813.     prozent!=TRUE
  4814.     ALERT 0,"Sollen Prozentsätze|eingeblendet werden?",1,"  ja  | nein ",antw%
  4815.     IF antw%=2
  4816.       prozent!=FALSE
  4817.     ENDIF
  4818.   ENDIF
  4819.   '
  4820.   CLS
  4821.   PRINT
  4822.   PRINT "  Bitte die einzelnen Werte mit [Return] eingeben (zuerst eine großen)"
  4823.   PRINT
  4824.   PRINT "  Nr.  Wert             ";
  4825.   IF text!
  4826.     PRINT "Text dazu (max. 15 Zeichen)"
  4827.   ENDIF
  4828.   PRINT
  4829.   FOR i%=1 TO anzahl%
  4830.     PRINT AT(2,i%+4);
  4831.     PRINT USING "###",i%;
  4832.     PRINT ":";
  4833.   NEXT i%
  4834.   FOR i%=1 TO anzahl%
  4835.     PRINT CHR$(27);"e"                  ! Cursor einschalten
  4836.     w$=""
  4837.     DO
  4838.       PRINT AT(8,i%+4);w$';
  4839.       PRINT CHR$(27);"D";               ! Cursor um ein Zeichen nach links
  4840.       REPEAT
  4841.         i$=INKEY$
  4842.       UNTIL i$<>""
  4843.       EXIT IF ASC(i$)=13 AND VAL(w$)>=0
  4844.       IF ASC(i$)=8 AND LEN(w$)
  4845.         w$=LEFT$(w$,LEN(w$)-1)
  4846.       ELSE
  4847.         IF INSTR("0123456789.",i$)>0
  4848.           w$=w$+i$
  4849.         ELSE
  4850.           OUT 2,7
  4851.         ENDIF
  4852.       ENDIF
  4853.     LOOP
  4854.     wert#(i%)=VAL(w$)
  4855.     IF w$=""
  4856.       PRINT "0"
  4857.     ENDIF
  4858.     PRINT CHR$(27);"f"                   ! Cursor ausschalten
  4859.     IF text!
  4860.       PRINT AT(25,i%+4);
  4861.       FORM INPUT 15,text$(i%)
  4862.     ENDIF
  4863.   NEXT i%
  4864.   ' Prozentverteilung ermitteln:
  4865.   sum#=0
  4866.   FOR i%=1 TO anzahl%
  4867.     sum#=sum#+wert#(i%)
  4868.   NEXT i%
  4869.   IF sum#=0
  4870.     ALERT 0,"so eine bescheuerte Eingabe!!| |    (insgesamt Null??) | ",1,"au weia",dummy%
  4871.     SPUT bild$
  4872.   ELSE
  4873.     BOUNDARY 1
  4874.     FOR i%=1 TO anzahl%
  4875.       prozent#(i%)=wert#(i%)*100/sum#
  4876.       sektor#(i%)=prozent#(i%)*36              ! 1% entspricht 36 * 1/10 Grad
  4877.     NEXT i%
  4878.     '
  4879.     SPUT bild$                             ! alten Bildschirminhalt zurück
  4880.     '
  4881.     '     Kreis und Muster zeichnen
  4882.     '
  4883.     DEFMOUSE 5
  4884.     REPEAT
  4885.       i$=INKEY$
  4886.       IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  4887.         al$="  Mauspfeil auf gewünschten|         Mittelpunkt,| dann linke Maustaste halten|"
  4888.         al$=al$+" und die Kreisgröße bestimmen| "
  4889.         ALERT 0,al$,1," OK ",antw%
  4890.         DEFMOUSE 5
  4891.       ENDIF
  4892.     UNTIL MOUSEK
  4893.     GOSUB gummikreis
  4894.     start%=900
  4895.     GRAPHMODE 1
  4896.     DEFLINE 1,1,0,0
  4897.     COLOR 1
  4898.     FOR i%=1 TO anzahl%
  4899.       schluss%=start%+sektor#(i%)
  4900.       DEFFILL 1,2,i%
  4901.       IF prozent#(i%)<2       ! Da nicht beliebig kleine Sektoren gezeichnet
  4902.         ausgleich%=50        ! werden können, werden die ganz kleinen Sektoren
  4903.       ELSE                   ! zu groß dargestellt. Durch Überdecken vom
  4904.         ausgleich%=0         ! nächsten Sektor wird der Winkel wieder richtig.
  4905.       ENDIF
  4906.       PCIRCLE x%,y%,radius%,start%,schluss%+ausgleich%
  4907.       start%=schluss%
  4908.     NEXT i%
  4909.     '
  4910.     DEFFILL 1,2,1
  4911.     PCIRCLE x%,y%,radius%,900,900+sektor#(1) ! den ersten Sektor noch einmal,
  4912.     '                                         damit der evtl. zu große letzte
  4913.     '                                         überdeckt wird
  4914.     '
  4915.     CIRCLE x%,y%,radius%     ! Außenkreis als Begrenzung
  4916.     '
  4917.     IF text!
  4918.       '              die Texte werden in die Kreissektoren geschrieben:
  4919.       '
  4920.       DEFTEXT 1,0,0,groesse%
  4921.       '
  4922.       '
  4923.       richtung#=900                              ! Startwinkel in 1/10 Grad
  4924.       PRINT AT(1,22);
  4925.       FOR i%=1 TO anzahl%
  4926.         richtung#=richtung#+sektor#(i%)/2
  4927.         gradrichtung#=richtung#/10                ! Textrichtung in Grad
  4928.         bogenrichtung#=gradrichtung#*PI/180       ! Textrichtung in Bogenmaß
  4929.         textx%=x%+(radius%-10)*COS(bogenrichtung#)
  4930.         texty%=y%-(radius%-10)*SIN(bogenrichtung#)
  4931.         '
  4932.         IF prozent!
  4933.           text$(i%)=text$(i%)+" ("+STR$(INT(prozent#(i%)+0.5))+"%)"
  4934.         ENDIF
  4935.         '
  4936.         IF textx%<x%
  4937.           textx%=textx%-8*LEN(text$(i%))           ! Text nach links rücken
  4938.         ENDIF
  4939.         IF textx%<1
  4940.           textx%=1
  4941.         ENDIF
  4942.         IF textx%>640-(LEN(text$(i%))*8)
  4943.           textx%=640-(LEN(text$(i%))*8)
  4944.         ENDIF
  4945.         '
  4946.         TEXT textx%,texty%,text$(i%)               ! Text schreiben
  4947.         '
  4948.         richtung#=richtung#+sektor#(i%)/2
  4949.       NEXT i%
  4950.     ENDIF
  4951.   ENDIF
  4952.   SGET bild$
  4953. RETURN
  4954. PROCEDURE ueber
  4955.   GRAPHMODE 1
  4956.   CLS
  4957.   PRINT
  4958.   PRINT " K R I T Z E L   -   ein pixelorientiertes Malprogramm"
  4959.   PRINT
  4960.   PRINT " Version ";version$'"vom"'datum$;""
  4961.   PRINT
  4962.   PRINT
  4963.   PRINT " Programmiert in GfA-BASIC 3.0 von"
  4964.   PRINT
  4965.   PRINT "     Heiko Müller, Mozartstraße 17, 2905 Edewecht"
  4966.   PRINT
  4967.   PRINT
  4968.   PRINT " Es darf mitsamt der Programmliste beliebig kopiert oder weitergegeben werden."
  4969.   PRINT
  4970.   PRINT " Falls jemand das Programm verbessert oder einen Fehler findet und beseitigt,"
  4971.   PRINT " möge er bitte eine Diskette mit der veränderten Version an die obige Anschrift"
  4972.   PRINT " schicken. Als ""Dankeschön"" werden auch gerne Disketten mit anderen GFA-BASIC-"
  4973.   PRINT " Programmen angenommen. Wenn außerdem ein frankierter Rückumschlag beigefügt"
  4974.   PRINT " ist, kommt die Diskette mit der neuesten Version von ""Kritzel"" zurück."
  4975.   PRINT
  4976.   REPEAT
  4977.   UNTIL MOUSEK>1 OR INKEY$<>""
  4978.   SPUT menue$
  4979. RETURN
  4980. PROCEDURE umriss  ! aus GFA-CLUB Nachrichten 5/89 S. 22
  4981.   HIDEM
  4982.   SGET undo$
  4983.   GET 0,0,639,399,merk$
  4984.   i$="Welche Umrißart wünscht Du?|außen voll,|außen leicht oder|innen?"
  4985.   ALERT 1,i$,2,"voll|leicht|innen",antw%
  4986.   IF antw%=1
  4987.     FOR i%=-1 TO 1
  4988.       FOR j%=-1 TO 1
  4989.         PUT i%,j%,merk$,7
  4990.       NEXT j%
  4991.     NEXT i%
  4992.     PUT 0,0,merk$,6
  4993.   ENDIF
  4994.   '
  4995.   IF antw%=2
  4996.     PUT 0,0,merk$
  4997.     PUT -1,0,merk$,7
  4998.     PUT 1,0,merk$,7
  4999.     PUT 0,1,merk$,7
  5000.     PUT 0,-1,merk$,7
  5001.     PUT 0,0,merk$,6
  5002.   ENDIF
  5003.   '
  5004.   IF antw%=3
  5005.     PUT 0,0,merk$
  5006.     GRAPHMODE 3
  5007.     DEFFILL 1,1
  5008.     PBOX 0,0,639,399
  5009.     GET 0,0,639,399,bild$
  5010.     GRAPHMODE 1
  5011.     CLS
  5012.     FOR i%=-1 TO 1
  5013.       FOR j%=-1 TO 1
  5014.         PUT i%,j%,bild$,7
  5015.       NEXT j%
  5016.     NEXT i%
  5017.     PUT 0,0,merk$,1
  5018.   ENDIF
  5019.   '
  5020.   SGET bild$
  5021.   SHOWM
  5022. RETURN
  5023. PROCEDURE verdoppeln
  5024.   LOCAL x%,y%,k%
  5025.   DEFLINE 1,1,0,0
  5026.   HIDEM
  5027.   GRAPHMODE 3
  5028.   REPEAT
  5029.     i$=INKEY$
  5030.     IF (LEN(i$)=2 AND ASC(RIGHT$(i$))=98)
  5031.       al$=" bitte Block ausschneiden,| der vergrößert werden soll!|"
  5032.       ALERT 0,al$,1,"ach so",dummy%
  5033.       DEFMOUSE 5
  5034.     ENDIF
  5035.     MOUSE x%,y%,k%                 ! großes Kreuz als Mauszeiger
  5036.     LINE 0,y%,639,y%
  5037.     LINE x%,0,x%,399
  5038.     PAUSE 2
  5039.     LINE 0,y%,639,y%
  5040.     LINE x%,0,x%,399
  5041.   UNTIL MOUSEK
  5042.   IF MOUSEK=1
  5043.     GOSUB gummikasten
  5044.     GET x%,y%,x1%,y1%,block$
  5045.     b%=x1%-x%
  5046.     h%=y1%-y%
  5047.     PUT 320,0,block$     ! Block in die Mitte setzen
  5048.     '
  5049.     IF b%>319
  5050.       b%=319
  5051.     ENDIF
  5052.     '
  5053.     FOR i%=0 TO b%                         ! zuerst in der Breite bearbeiten:
  5054.       GET 320+i%,0,321+i%,h%,block$        ! schmale Streifen ausschneiden
  5055.       PUT 2*i%,0,block$                    ! und zweimal hintereinander
  5056.       PUT 2*i%+1,0,block$                  ! vorne hinsetzen
  5057.     NEXT i%
  5058.     '
  5059.     b%=2*b%
  5060.     '
  5061.     IF h%>199
  5062.       h%=199
  5063.     ENDIF
  5064.     '
  5065.     FOR i%=h% DOWNTO 0                     ! nun folgen Längsstreifen:
  5066.       GET 0,i%,b%,i%-1,block$              ! schmale Streifen ausschneiden
  5067.       PUT 0,2*i%,block$                    ! und zweimal untereinander
  5068.       PUT 0,2*i%-1,block$                  ! unten hinsetzen
  5069.     NEXT i%
  5070.     '
  5071.   ENDIF
  5072.   '
  5073.   GET 0,0,b%,2*h%,block$               ! neuen Block einfangen
  5074.   SPUT bild$
  5075.   GOSUB einsetzen
  5076. RETURN
  5077. PROCEDURE vertikal
  5078.   p%(1)=0
  5079.   p%(3)=h%
  5080.   p%(5)=y%
  5081.   p%(7)=y%+h%
  5082.   p%(8)=3
  5083.   p%(4)=x%+b%
  5084.   p%(6)=x%+b%
  5085.   FOR i%=0 TO b%
  5086.     p%(0)=i%
  5087.     p%(2)=i%
  5088.     BITBLT smfdb%(),dmfdb%(),p%()
  5089.     DEC p%(4)
  5090.     DEC p%(6)
  5091.   NEXT i%
  5092. RETURN
  5093. PROCEDURE vieleck
  5094.   LOCAL x%,y%,k%
  5095.   SGET undo$
  5096.   DEFMOUSE 5
  5097.   DO
  5098.     ERASE x%()
  5099.     ERASE y%()
  5100.     DIM x%(100),y%(100)
  5101.     FOR i%=1 TO 100
  5102.       IF i%=1
  5103.         DO
  5104.           MOUSE x%(1),y%(1),k%
  5105.           IF gitter!
  5106.             x%(1)=INT((x%(1)+weite%/2)/weite%)*weite%
  5107.             y%(1)=INT((y%(1)+weite%/2)/weite%)*weite%
  5108.           ENDIF
  5109.           i$=INKEY$
  5110.           EXIT IF ASC(i$)=13 OR k%
  5111.         LOOP
  5112.         INC i%
  5113.       ENDIF
  5114.       EXIT IF ASC(i$)=13 OR k%>1
  5115.       GRAPHMODE 3
  5116.       DEFLINE 1,1,0,0
  5117.       REPEAT
  5118.         MOUSE x%(i%),y%(i%),k%
  5119.         IF gitter!
  5120.           x%(i%)=INT((x%(i%)+weite%/2)/weite%)*weite%
  5121.           y%(i%)=INT((y%(i%)+weite%/2)/weite%)*weite%
  5122.         ENDIF
  5123.         LINE x%(i%-1),y%(i%-1),x%(i%),y%(i%)
  5124.         PAUSE 5
  5125.         LINE x%(i%-1),y%(i%-1),x%(i%),y%(i%)
  5126.       UNTIL k%
  5127.       GRAPHMODE 3
  5128.       EXIT IF k%>1
  5129.       LINE x%(i%-1),y%(i%-1),x%(i%),y%(i%)
  5130.       WHILE MOUSEK
  5131.       WEND
  5132.     NEXT i%
  5133.     WHILE MOUSEK
  5134.     WEND
  5135.     GRAPHMODE mode%
  5136.     x%(0)=x%(i%-1)
  5137.     y%(0)=y%(i%-1)
  5138.     DEFLINE stil%,breite%,2,2
  5139.     COLOR farbe%
  5140.     IF NOT figurfuellen!
  5141.       POLYLINE i%,x%(),y%()
  5142.     ELSE
  5143.       DEFFILL 1,muster1%,muster2%
  5144.       POLYFILL i%,x%(),y%()
  5145.     ENDIF
  5146.     ERASE x%()
  5147.     ERASE y%()
  5148.     REPEAT
  5149.       MOUSE x%,y%,k%
  5150.       x$=INKEY$
  5151.     UNTIL k% OR x$="x" OR x$="X"
  5152.     IF x$="X" OR x$="x"
  5153.       SPUT merk$
  5154.     ENDIF
  5155.     EXIT IF k%>1
  5156.     SGET merk$
  5157.   LOOP
  5158.   SGET bild$
  5159. RETURN
  5160.